在VB6中获取文件的最后修改日期
有一个在VB6功能的内置为 - 无需FSO(虽然FSO是伟大的,更高级的文件操作)
从http://msdn.microsoft.com/en-us/library/aa262740%28VS.60%29.aspx
Dim MyStamp As Date
MyStamp = FileDateTime("C:\TESTFILE.txt")
您可以使用FileSystemObject这里是一个example
您还可以检查出MSDN documentation样本对脚本编写,但它们应该是翻译到VB6容易。
-1。如果可能,我建议避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们有一个帮助台问题,因为一个偏执狂的IT部门已经瘫痪了FileSystemObject,并且破坏了我们维护的一些软件。也可以在本地VB6中执行一行,而不是4行FileSystemObject。 – MarkJ 2009-11-02 17:33:55
添加到Microsoft脚本运行(项目 - >引用...)的参考和使用下面的代码:
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("C:\foo.txt")
Debug.Print fil.DateLastModified
-1。如果可能,我建议避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们有一个帮助台问题,因为一个偏执狂的IT部门已经瘫痪了FileSystemObject,并且破坏了我们维护的一些软件。这也可以在本地VB6中的一行中完成:必须比FileSystemObject的4行更好。 – MarkJ 2009-11-02 17:34:25
+1。如果可能,我建议避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们有一个帮助台问题,因为一个偏执狂的IT部门已经瘫痪了FileSystemObject,并且破坏了我们维护的一些软件。这里原生的VB6技术是一行,而FSO代码至少有三行。 – MarkJ 2009-11-02 17:32:37