在VB6中获取文件的上次修改日期

Question

如何使用VB6获取文件的上次修改日期？

Answer 1

有一个内置的VB6功能 - 不需要FSO（尽管FSO非常适合更高级的文件操作）

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

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

Answer 2

这绝对是实现您想要的最简单的方法。

Dim myString as String

Dim myDate As Date

myString = Format(FileDateTime("C:\TESTFILE.txt"), "dd-MM-yyyy")

myDate = MyString

如果将变量变暗为字符串，则可以使用Format函数将结果缩短为仅日期。

如果您需要将变量声明为Date，请按照上面的操作进行操作，然后将其声明为单独的变量。一旦Format函数完成其工作，将String变量复制到Date变量，即可完成两行代码。

就这么简单。

Answer 3

添加对Microsoft Scripting Runtime的引用（Project-＆gt; References ...）并使用以下代码：

Dim fso As New FileSystemObject
Dim fil As File

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

Answer 4

您可以在这里使用FileSystemObject example

您还可以查看MSDN documentation示例脚本，但它们应该可以轻松转换为VB6。

Answer 5

我建议使用windows api调用： http://www.ex-designz.net/apidetail.asp?api_id=128

然后您可以获得创建日期或上次修改日期。

Answer 6

我使用此本地代码更新VB6中的修改日期：

Dim nUnit As Integer
nUnit = FreeFile
Open "C:\file.txt" For Append As nUnit
Print #nUnit, ""
Close #nUnit

它的作用类似于Linux的“触摸”命令。