S
Silverado
Tag Leute ich hab da eine Function. Die Functioniert auch aber ich wollte euch fragen ob man in dieser Funktion auch nach allen Dateien Dursuchen kann.
Code:
Public Sub CheckDir(ByVal diDirectory _
As System.IO.DirectoryInfo)
CheckFiles(diDirectory)
Dim di As System.IO.DirectoryInfo
For Each di In diDirectory.GetDirectories()
Try
CheckDir(di)
Catch
List1.Items.Add("Error at " & di.FullName)
Application.DoEvents()
End Try
Next di
End Sub
Public Sub CheckFiles(ByVal diDirectory _
As System.IO.DirectoryInfo)
Dim fi As System.IO.FileInfo
Try
For Each fi In diDirectory.GetFiles()
If System.IO.Path.GetExtension(fi.FullName) _
= ".*" Then
' Es wurde eine Datei gefunden.
List1.Items.Add(fi.FullName)
' Operation auf die Datei ausführen...
'f.Delete()
End If
Next fi
Catch
List1.Items.Add("Error at " & fi.FullName)
List1.Refresh()
Application.DoEvents()
End Try
End Sub