Public Sub AnalidarDirectorioRPX(Directorio As String)
Dim DirSys As New FileSystemObject
Dim Carpeta As Folder, SubCarpeta As Folder
Dim Sql As String
'Sql = "Create Table RPXInHd (FileName NVarChar(255), DateCreated DateTime, DateLastAccessed DateTime, DateLastModified DateTime, primary key (FileName))"
'ADODropTable "RPXInHd"
'CnExecute Sql
Set Carpeta = DirSys.GetFolder(Directorio)
Dim F As File
For Each F In Carpeta.Files
'Sql = "Insert into RPXInHd(FileName, DateCreated, DateLastAccessed, DateLastModified) Values ('" & F.Path & "', '" & F.DateCreated & "','" & F.DateLastAccessed & "', '" & F.DateLastModified & "')"
'CnExecute Sql
MsgBox F.Path
Next
Dim FF As Folder
For Each FF In Carpeta.SubFolders
AnalidarDirectorioRPX FF.Path
Next
End Sub