Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/03/2006, 16:20
Avatar de Fann_Lavigne
Fann_Lavigne
 
Fecha de Ingreso: diciembre-2004
Mensajes: 622
Antigüedad: 20 años, 4 meses
Puntos: 12
Mira, esto no es API's, solo son referencias o objetos del mismo windows, espero te sirva, con este codigo recorres todos los archivos de determinada extension en determinada carpeta, obtienes su fecha de modificacion, y su nombre. Espero te sirva de algo.

Código:
Set v1 = CreateObject("Scripting.FileSystemObject")
    Set v2 = v1.GetFolder("C:\Archivos")
    Set Archivos = v2.Files
    For Each Archivo In Archivos
        'Para solo comprobar archivos txt
        If v1.GetExtensionName(Archivo) = "txt" Then
            MsgBox Archivo.DateLastModified & "   " & Archivo.Name
        End If
    Next Archivo
__________________
"Entre Mas Brillante Es Una Mente, Tiene Que Luchar Contra Demonios Internos Mas Poderosos"
[email protected]