Frequento il forum nella sezione "Applicativi Office".
Ho oggi una nuova esigenza: dovrei nascondere una cartella specifica.
Ho trovato questo codice che fa proprio quello che voglio.
- Codice: Seleziona tutto
Private Sub HideFolder_ShowFolder()
'Dim AppPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim AppPath As String = "c:\"
Dim Path As String = TextBox1.Text
Dim attributes As FileAttributes
attributes = File.GetAttributes(Path)
If (attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
attributes = RemoveAttribute(attributes, FileAttributes.Hidden)
File.SetAttributes(Path, attributes)
Else
File.SetAttributes(Path, File.GetAttributes(Path) Or FileAttributes.Hidden)
End If
End Sub
Public Function RemoveAttribute(ByVal attributes As FileAttributes, ByVal attributesToRemove As FileAttributes) As FileAttributes
Return attributes And (Not attributesToRemove)
End Function
Il problema è che la cosa funziona parzialmente, infatti anche se attivo la visualizzazione dei file nascosti non vedo la cartella, ma se faccio una banale ricerca da esplora risorse (utilizzo win 10), la cartella viene rilevata e mostrata e diventa accessibile.
La domanda è questa:
c'è un sistema per nascondere la cartella in maniera completa ?
In alternativa, c'è la possibilità di criptare la cartella in modo tale che non sia accessibile (se pur visibile) o in ultima analisi esiste la possibilità di creare un programmino che imposti una password per l'apertura della cartella ?
Grazie.