bueno por ejemplo una parte del programa se encarga de listar los directorios y agregarlos en una base de datos. con pocos archivos puede ser rapido, pero con 20000 archivos se echa su ratica como unos 3min. Pero a mi me gustaria que en esos 3min yo pueda poner un label o halgo que valla imprimeindo como va el progreso del programa. Es todo lo que quiero, aqui esta el codigo:
Public Function Listar_Directorios(directorio As String)
Dim Subdirectorio As Folder
Dim ruta As String
Dim ext As String
Set El_Directorio = fso.GetFolder(Trim$(directorio))
If existe("archivos", "ruta", directorio) Then Else ejecutar ("INSERT INTO `archivos` (`ruta`, `carpeta` )VALUES ('" & seguridad(directorio) & "', 1) ")
For Each El_Archivo In El_Directorio.Files
ruta = El_Directorio.Path & "\" & El_Archivo.Name
If existe("archivos", "ruta", ruta) Then
Else
ext = extensión(El_Archivo.Name)
ejecutar ("INSERT INTO `archivos` (`ruta`, `extensión`, `tamaño` )VALUES ('" & seguridad(ruta) & "', '" & ext & "', '" & FileLen(ruta) & "') ")
End If
Next El_Archivo
For Each Subdirectorio In El_Directorio.SubFolders
ruta = El_Directorio.Path & "\" & Subdirectorio.Name
If existe("archivos", "ruta", ruta) Then Else ejecutar ("INSERT INTO `archivos` (`ruta`, `carpeta` )VALUES ('" & seguridad(ruta) & "', 1) ")
Listar_Directorios (Subdirectorio)
Next
End Function
Autor
En línea
