My.Comp.FS.GetDirs UTEN skjulte mapper

[Wubbable]

Altså, jeg prøver å indexere de sjulte mappene på en disk...

 

For Each Direc As String In My.Computer.FileSystem.GetDirectories("G:\", _
FileIO.SearchOption.SearchTopLevelOnly)

   If My.Computer.FileSystem.GetDirectoryInfo(Direc).Attributes = _
   IO.FileAttributes.Hidden Then

        MsgBox(Direc & " is hidden")

   End If

Next

 

Men det returnerer ingen... Og hvis det er "If Not", så returneres alle... Vet at "system volume information" og "recycler" er mapper som er sjulte..

[j000rn]

If My.Computer.FileSystem.GetDirectoryInfo(Direc).Attributes AND IO.FileAttributes.Hidden = IO.FileAttributes.Hidden Then

[Wubbable]

Fant det ut

 

        Dim lolz As New List(Of String)
       lolz.AddRange(My.Computer.FileSystem.GetDirectories("G:\", FileIO.SearchOption.SearchTopLevelOnly))

       For Each CurDir As String In lolz

           Dim checkFile As System.IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(CurDir)
           Dim attributeReader As System.IO.FileAttributes = checkFile.Attributes

           If (attributeReader And System.IO.FileAttributes.Hidden) > 0 Then
               MsgBox(CurDir & " is hidden")
           End If

       Next

[Manfred]

"If (attributeReader And System.IO.FileAttributes.Hidden) > 0 Then" ?

 

Å herrejemini, det slår meg stadig vekk hvorfor jeg ikke driver med VB.

[j000rn]

"If (attributeReader And System.IO.FileAttributes.Hidden) > 0 Then" ?

 

Å herrejemini, det slår meg stadig vekk hvorfor jeg ikke driver med VB.

8160583[/snapback]

 

Tror du hadde hatt godt av et par måneder med tvangsjobbing i VB jeg :-P

[Wubbable]

Tvangsjobbing = nothing gets done

Må ha evig med tid på meg hvis jeg skal gjøre noe bra, og ha det kjekt samtidig

[Moskus]

Å herrejemini, det slår meg stadig vekk hvorfor jeg ikke driver med VB.

8160583[/snapback]

Ja, det er nok for avansert for deg.

[Manfred]

Haha... ja, du kan jo tolke det sånn om du vil...

[Moskus]

Believe you me; I will.