Discussion :

[troxsa]

Bonjour a tous

Je recherche comment faire pour tester l'accessibilité d'un dossier comme System Volume Information (et bien d'autre)

J'ai fais un petit bout de code qui dit simplement que si le dossier a bien l'attrib 16 (Dossier) ..., mais ça ne dit pas si le dossier est accessible ou pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Try
            For Each entry As String In Directory.GetDirectories("C:\")
                Dim info As FileSystemInfo = New DirectoryInfo(entry)
 
                If info.Attributes = FileAttributes.Directory Then
                    Dim AllFiles As New ArrayList(Directory.GetFiles(entry, "*", SearchOption.AllDirectories))
                    'ListBox1.DataSource = AllFiles
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Comment faire pour savoir si le dossier est en mode exclusif ou pas ?
j'ai trouvé "FileAttributes.System" mais c'est uniquement pour les fichiers et non les dossiers !

j'ai trouvé aussi "Imports System.DirectoryServices.Protocols" qui contient DirectoryAttribute, a priori il sers pour uniquement pour attribuer des attrib mais pas les géré en lecture, j'ai pas eu encore beaucoup de temps pour titiller cette classe

Si vous avez une idée ...

Merci a tous

Cordialement,

[troxsa]

Ben en faite j'etait pas si loin que ça , bien prise de tête quand même
merci msdn !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Try
            For Each entry As String In Directory.GetDirectories("C:\")
                Dim info As FileSystemInfo = New DirectoryInfo(entry)
                If (info.Attributes And FileAttributes.System) <> FileAttributes.System Then
                    For Each Monfichier As String In Directory.GetFiles(entry, "*", SearchOption.AllDirectories)
                        Console.WriteLine(Monfichier)
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try