获取一个文件&x27；在VB6中上次修改的日期

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

您可以使用FileSystemObject

---

您也可以检查示例是否用于脚本编写，但它们应该可以轻松地转换为VB6。

添加对Microsoft脚本运行时的引用（项目->引用…），并使用以下代码：

Dim fso As New FileSystemObject
Dim fil As File

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

---

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

从

---

我建议使用windows api调用：

---

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

这绝对是实现所需目标的最简单方法

Dim myString as String

Dim myDate As Date

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

myDate = MyString

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

如果您需要将变量声明为日期，那么请按照上面的操作，并将其声明为单独的变量。Format函数完成其工作后，将字符串变量复制到Date变量，然后在两行代码中完成

---

就这么简单。

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

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

---

它的效果与Linux的“touch”命令类似。

+1。我建议尽可能避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们遇到了一个帮助台问题，因为一个偏执的IT部门破坏了FileSystemObject，并破坏了我们维护的一些软件。本机VB6技术只有一行，FSO代码至少有3行。我建议尽可能避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们遇到了一个帮助台问题，因为一个偏执的IT部门破坏了FileSystemObject，并破坏了我们维护的一些软件。这也可以在本机VB6中的一行中完成，而不是在文件系统对象的4行中完成。如果你认为VB缺乏某些功能，那就是Win32 API的作用所在-1.我建议尽可能避免使用FileSystemObject。它并不总是出现在用户机器上。上个月我们遇到了一个帮助台问题，因为一个偏执的IT部门破坏了FileSystemObject，并破坏了我们维护的一些软件。另外，这可以在原生VB6中的一行中完成：必须比使用FileSystemObject的4行更好。这是一个很好的答案。但请注意，这个问题是十多年前提出的；）

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