• Home
 · 
• Files/File Controls/Input/Output
 · 
• Loop's through the filesystem in VB.NET

Loop's through the filesystem in VB.NET

Loop's through the filesystem in VB.NET

API Declarations


'makes a file with a list of all the files on you computer and desplays on a console
'call the find sub folders.



Rate Loop's through the filesystem in VB.NET

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        'On Error Resume Next
        If path = "" Then path = "e:\"
        Dim dirs() As System.IO.Directory
        Dim fold As System.IO.Directory
        dirs = system.IO.Directory.GetDirectoriesInDirectory(path)
        For Each fold In dirs
            'If fold.Attributes = System.IO.FileSystemAttributes.Directory Then
            Try
                console.WriteLine(fold.ToString) ' just an acsaple how to use this code
                mywr.writeline(fold.ToString)
                Call FindFiles(fold.ToString) 'find files in dir
                path = fold.ToString
                Call FindSubFolders()  'Recall to get the sub folders :=)
            Catch
                'donothing
            End Try
        Next

        
    End Sub
    Sub findfiles(ByVal path As String)
        Dim files() As system.IO.File
        Dim file As System.IO.file
        
        Try
            files = system.IO.Directory.GetFilesInDirectory(path)
            
            For Each file In files
                mywr.writeline(" * " & file.name)
                totsize = totsize + file.length
                console.WriteLine("* " & file.Name & ", " & file.Length)
            Next
            
        Catch
        End Try
        
    End Sub