修改文件夹创建时间和修改时间

模块
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Public Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
Public Const INVALID_HANDLE_VALUE = -1
Public Function SetDirTime(DirName As String, NewTime As SYSTEMTIME) As Boolean
    Dim hDir As Long
    Dim lpCreationTime As FILETIME
    Dim lpLastAccessTime As FILETIME
    Dim lpLastWriteTime As FILETIME
    Dim retval As Boolean
    Dim sAttribute As SECURITY_ATTRIBUTES
    hDir = CreateFile(DirName, GENERIC_WRITE, FILE_SHARE_READ, sAttribute, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
   
    If hDir = INVALID_HANDLE_VALUE Then SetDirTime = False: Exit Function
   
    Call SystemTimeToFileTime(NewTime, lpCreationTime) ' 转换成文件的时间格式
    Call SystemTimeToFileTime(NewTime, lpLastAccessTime)
    Call SystemTimeToFileTime(NewTime, lpLastWriteTime)
   
    retval = SetFileTime(hDir, lpCreationTime, lpLastAccessTime, lpLastWriteTime)
    CloseHandle (hDir)
    SetDirTime = retval
End Function

'窗体
Private Sub Form_Load()
    Dim NewTime As SYSTEMTIME
    NewTime.wYear = Year(Now)
    NewTime.wMonth = Month(Now)
    NewTime.wDay = Day(Now)
    NewTime.wDayOfWeek = Weekday(Now)
    NewTime.wHour = Hour(Now)
    NewTime.wMinute = Minute(Now)
    NewTime.wSecond = Second(Now)
    Call SetDirTime("H:/My Documents", NewTime)
End Sub