请问有没办法可以得到系统安装日期

Question

我想用VB代码来得到系统的安装日期，请问应该怎么做呢？

Answer 1

你可以通过查询系统目录的创建时间来得到啊
例如:c:\windows, c:\windows\system32
一般系统目录的创建时间就是系统的安装时间

Answer 2

Dim fs, fd
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fd = fs.GetFolder("C:\windows")
    MsgBox fd.DateCreated
    Set fd = Nothing
    Set fd = fs.GetFolder("C:\windows\System32")
    MsgBox fd.DateCreated

Answer 3

先谢谢楼上的大哥了
我还想问下能否得到某个文件的创建时间和修改时间呢
比如得到C:\WINDOWS\explorer.exe的创建时间和修改时间

Answer 4

Dim fs, fl
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fl = fs.GetFile("C:\WINNT\explorer.exe")
    MsgBox "文件创建时间:" & fl.DateCreated & " 最后修改时间: " & fl.DateLastModified & " 最后访问时间: " & fl.DateLastAccessed

Answer 5

Dim fs, fl
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fl = fs.GetFile("C:\WINDOWS\explorer.exe")
    MsgBox "文件创建时间:" & fl.DateCreated & " 最后修改时间: " & fl.DateLastModified & " 最后访问时间: " & fl.DateLastAccessed