2009-11-02 34 views

Respuesta

20

Hay una función integrada de VB6 para que - no hay necesidad de FSO (aunque FSO es ideal para operaciones de archivo más avanzados)

de http://msdn.microsoft.com/en-us/library/aa262740%28VS.60%29.aspx

Dim MyStamp As Date 
MyStamp = FileDateTime("C:\TESTFILE.txt") 
+0

+1. Recomiendo evitar FileSystemObject si es posible. No siempre está presente en las máquinas de los usuarios. Tuvimos un problema con el servicio de asistencia el mes pasado porque un departamento paranoico de TI había paralizado FileSystemObject, y eso rompió un poco de software que mantenemos. Aquí la técnica nativa VB6 es una línea, y el código FSO es de al menos 3 líneas. – MarkJ

0

se puede utilizar el FileSystemObject aquí hay un example

También puede revisar la MSDN documentation las muestras son las secuencias de comandos, pero deberían ser traducibles a VB6 fácilmente.

+0

-1. Recomiendo evitar FileSystemObject si es posible. No siempre está presente en las máquinas de los usuarios. Tuvimos un problema con el servicio de asistencia el mes pasado porque un departamento paranoico de TI había paralizado FileSystemObject, y eso rompió un poco de software que mantenemos. También esto se puede hacer en una línea en VB6 nativo, no en 4 líneas de FileSystemObject. – MarkJ

2

añadir una referencia a la Microsoft Scripting Runtime (Proyecto-> Referencias ...) y utilizar el siguiente código:

Dim fso As New FileSystemObject 
Dim fil As File 

Set fil = fso.GetFile("C:\foo.txt") 
Debug.Print fil.DateLastModified 
+0

-1. Recomiendo evitar FileSystemObject si es posible. No siempre está presente en las máquinas de los usuarios. Tuvimos un problema con el servicio de asistencia el mes pasado porque un departamento paranoico de TI había paralizado FileSystemObject, y eso rompió un poco de software que mantenemos. También esto se puede hacer en una línea en VB6 nativo: debe ser mejor que 4 líneas con FileSystemObject. – MarkJ

Cuestiones relacionadas