2009-11-02 13 views

Odpowiedz

20

Jest wbudowany w funkcji VB6 za to - nie ma potrzeby FSO (choć FSO jest dobre dla bardziej zaawansowanych operacji na plikach)

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

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

+1. Zalecam unikanie FileSystemObject, jeśli to możliwe. Nie zawsze jest obecny na komputerach użytkowników. W zeszłym miesiącu mieliśmy problem z działem pomocy technicznej, ponieważ paranoiczny dział IT okaleczył FileSystemObject i spowodował uszkodzenie oprogramowania, które utrzymujemy. Tutaj natywna technika VB6 to jedna linia, a kod FSO to co najmniej 3 linie. – MarkJ

0

Można użyć FileSystemObject oto example

Można również zapoznać się z MSDN documentation Próbki skryptów, ale powinny one być tłumaczony na VB6 łatwo.

+0

-1. Zalecam unikanie FileSystemObject, jeśli to możliwe. Nie zawsze jest obecny na komputerach użytkowników. W zeszłym miesiącu mieliśmy problem z działem pomocy technicznej, ponieważ paranoiczny dział IT okaleczył FileSystemObject i spowodował uszkodzenie oprogramowania, które utrzymujemy. Można to również zrobić w jednej linii w natywnym VB6, a nie w 4 liniach FileSystemObject. – MarkJ

2

Dodaj odwołanie do Microsoft Scripting Runtime (projektu-> Referencje ...) i kliknąć na poniższy kod:

Dim fso As New FileSystemObject 
Dim fil As File 

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

-1. Zalecam unikanie FileSystemObject, jeśli to możliwe. Nie zawsze jest obecny na komputerach użytkowników. W zeszłym miesiącu mieliśmy problem z działem pomocy technicznej, ponieważ paranoiczny dział IT okaleczył FileSystemObject i spowodował uszkodzenie oprogramowania, które utrzymujemy. Można to również zrobić w jednej linii w natywnym VB6: musi być lepsza niż 4 linie z FileSystemObject. – MarkJ

Powiązane problemy