Sub SearchFolder(FolderPath As String, sTMPFileName As String)
Try
' force refresh
lblStatus.Text = "ELABORO <" & FolderPath & ">"
If File.Exists(FolderPath, "") = True Then
If File.IsDirectory("", FolderPath) Then
lFolderChecked = lFolderChecked + 1
Dim FilesFound As List = File.ListFiles(FolderPath)
If FilesFound.IsInitialized = True Then
If FilesFound.Size > 0 Then
For i = 0 To FilesFound.Size - 1
' force refresh
lblStatus.Text = "ELABORO <" & FilesFound.Get(i) & ">"
If File.IsDirectory(FolderPath, FilesFound.Get(i)) = True Then
lFolderChecked = lFolderChecked + 1
Dim sFileFolderName As String = FilesFound.Get(i)
If sFileFolderName.ToUpperCase.StartsWith(sTMPFileName) AND _
sFileFolderName.ToUpperCase.EndsWith(".RDC") Then
ExtractEDL(sFileFolderName, sTMPFileName)
Else
SearchFolder(FolderPath & "/" & sFileFolderName, sTMPFileName)
End If
Else
lFileChecked = lFileChecked + 1
End If
Next
End If
End If
Else
lFileChecked = lFileChecked + 1
End If
End If
Catch
End Try
End Sub