Her er en funktion til VB.NET, som søger i undermapper, i en valgt mappe/drev.
Kan ikke lige huske hvad det er for en teknologi jeg har klikket mig ind på.
Den her udelader mapperne "System Volume Information" og "Eks", plus alle undermapper.
Hvis du kun vil have at den udelader roden af Eks, men stadig søger i undermapperne deri, må du ændre den lidt.
Private Sub TraverseFolder(ByVal root As String)
Dim checkFile As System.IO.DirectoryInfo
checkFile = My.Computer.FileSystem.GetDirectoryInfo(root)
If checkFile.Name <> "System Volume Information" And checkFile.name <> "Eks" Then
Try
For Each recursiveDir As String In My.Computer.FileSystem.GetDirectories(root)
ListBox1.Items.Add(recursiveDir)
Try
ChDir(recursiveDir)
Catch ex As Exception
ListBox2.Items.Add(ex.Message)
End Try
Call TraverseFolder(recursiveDir)
Next
For Each foundFile As String In My.Computer.FileSystem.GetFiles(root, FileIO.SearchOption.SearchTopLevelOnly)
ListBox1.Items.Add(foundFile)
If FileLen(foundFile) <= 0 Then
ListBox2.Items.Add("Found zero-byte file " & foundFile)
End If
Next
Catch ex As Exception
ListBox2.Items.Add(ex.Message)
End Try
End If
End Sub
Indlæg senest redigeret d. 21.01.2008 13:14 af Bruger #1927