Ayuda urgente con una funcion recursiva que utiliza FindNextFile!!! Hola, necesito ayuda urgente.
Hice un programa para recorrer recursivamente el arbol de directorios empezando desde un directorio dado; el programa esta hecho con las APIs FindFirstFile y FindNextFile y funciona bien, pero el problema es que mientras se ejecuta la funcion recursiva, pierdo el control de la aplicacion y no puedo hacer click en ningun lado ni tampoco puedo mover de lugar el formulario, y cuando lo hago, la aplicacion se cuelga. Alguien sabe por que es esto?
El codigo es el siguiente (require un command button y una statusbar con sus nombres predeterminados):
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type
Function delete_Null(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
delete_Null = OriginalStr
End Function
Function IsDirectory(sPath As String) As Boolean
IsDirectory = PathIsDirectory(sPath)
End Function
Private Sub list(path As String)
Dim filedir As Long
Dim infofiledir As WIN32_FIND_DATA
Dim filename As String
filedir = FindFirstFile(path & "\*", infofiledir)
If filedir <> Error Then
filename = delete_Null(infofiledir.cFileName)
If (filename <> ".") And (filename <> "..") Then
StatusBar1.Panels(1).Text = path & "\" & filename
If IsDirectory(path & "\" & filename) = True Then
list (path & "\" & filename)
End If
End If
End If
While FindNextFile(filedir, infofiledir)
filename = delete_Null(infofiledir.cFileName)
If (filename <> ".") And (filename <> "..") Then
StatusBar1.Panels(1).Text = path & "\" & filename
If IsDirectory(path & "\" & filename) = True Then
list (path & "\" & filename)
End If
End If
Wend
FindClose (filedir)
End Sub
Private Sub Command1_Click()
list ("c:\Program Files")
End Sub
