Hallo,
ich versuche ein Progrämmchen zu machen, womit ich einfach alle Dateien eines Verzeichnisses rekursiv zu suchen die größer als 50 MB sind
Hier mal mein Ansatz
Kann mir da jemand weiterhelfen
Danke
Holger
ich versuche ein Progrämmchen zu machen, womit ich einfach alle Dateien eines Verzeichnisses rekursiv zu suchen die größer als 50 MB sind
Hier mal mein Ansatz
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button1.Click
- Me.Folderbrowserdialog1.showdialog()
- ListFiles(Me.FolderBrowserDialog1.SelectedPath)
- End Sub
- Private Sub ListFiles(ByVal [path] As String)
- Dim DirInfo As New DirectoryInfo(path)
- Dim FileObj As IO.FileSystemInfo
- For Each FileObj In DirInfo.GetFileSystemInfos
- If FileObj.Attributes = FileAttributes.Directory Then
- ListFiles(FileObj.FullName)
- Else
- Me.ListBox1.Items.Add(FileObj.FullName)
- End If
- Next
- End Sub
- End Class
Kann mir da jemand weiterhelfen
Danke
Holger