Code:
- Code: Select all
Public Sub FindDirs(SearchPath As String)
Dim AllDirectorys As Strings = Dir.FindFile(SearchPath & "/", "*", "System;Hidden;AllDirs")
For Each Directory As String in AllDirectorys
If Dir.IsDir(Directory) = True Then
ListBox1.Append(Directory)
DoEvents()
SourceDirLab.Caption = Str(ListBox1.Length())
DoEvents()
FindNextDirs(Directory)
End If
Next
End Sub
Public Sub FindNextDirs(SearchPath As String)
Dim AllDirectorys As Strings = Dir.RecursiveFindFile(SearchPath & "/", "*", "System;Hidden;AllDirs")
For Each Directory As String in AllDirectorys
If Dir.IsDir(Directory) = True Then
ListBox1.Append(Directory)
DoEvents()
SourceDirLab.Caption = Str(ListBox1.Length())
DoEvents()
End If
Next
End Sub
Calling it,
- Code: Select all
FindDirs("C:/Windows")
9 out of 10 runs KBasic will report,
Deleting the Cache does not help.
In my opinion it works or it doesn't, but not sometime it does and sometime it doesn't