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