修改文件创建时间
1 Option Explicit
2
3 Public Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
4 Public Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SystemTime, lpFileTime As FILETIME) As Long
5 Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
6 Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
7 Public Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
8 Public Const OF_EXIST = &H4000
9 Public Const OFS_MAXPATHNAME = 128
10 Public Const OF_READWRITE = &H2
11
12 Public Type OFSTRUCT
13 cBytes As Byte
14 fFixedDisk As Byte
15 nErrCode As Integer
16 Reserved1 As Integer
17 Reserved2 As Integer
18 szPathName(OFS_MAXPATHNAME) As Byte
19 End Type
20 Public Type FILETIME
21 dwLowDateTime As Long
22 dwHighDateTime As Long
23 End Type
24
25 Public Type SystemTime
26 wYear As Integer
27 wMonth As Integer
28 wDayOfWeek As Integer
29 wDay As Integer
30 wHour As Integer
31 wMinute As Integer
32 wSecond As Integer
33 wMilliseconds As Integer
34 End Type
35
36 Public Sub ModiFileTime(sFile As String, 日期 As SystemTime)
37 Dim Rev As Long
38 Dim hFile As Long
39 Dim fTime As FILETIME
40 Dim fLTime As FILETIME
41 Dim fStruct As OFSTRUCT
42
43 Rev = SystemTimeToFileTime(日期, fLTime)
44 Rev = LocalFileTimeToFileTime(fLTime, fTime)
45 hFile = OpenFile(sFile, fStruct, OF_READWRITE)
46 Rev = SetFileTime(hFile, fTime, fTime, fTime)
47 Rev = CloseHandle(hFile)
48 End Sub
49
50 '使用方法
51 Private Sub Form_Load()
52 Dim 日期 As SystemTime
53 With 日期 '2008/04/14 20:00:00
54 .wYear = 2008
55 .wMonth = 4
56 .wDay = 14
57 .wHour = 20
58 .wMinute = 0
59 .wSecond = 0
60 End With
61 ModiFileTime "C:\1.ico", 日期
62 End Sub
63
2
3 Public Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
4 Public Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SystemTime, lpFileTime As FILETIME) As Long
5 Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
6 Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
7 Public Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
8 Public Const OF_EXIST = &H4000
9 Public Const OFS_MAXPATHNAME = 128
10 Public Const OF_READWRITE = &H2
11
12 Public Type OFSTRUCT
13 cBytes As Byte
14 fFixedDisk As Byte
15 nErrCode As Integer
16 Reserved1 As Integer
17 Reserved2 As Integer
18 szPathName(OFS_MAXPATHNAME) As Byte
19 End Type
20 Public Type FILETIME
21 dwLowDateTime As Long
22 dwHighDateTime As Long
23 End Type
24
25 Public Type SystemTime
26 wYear As Integer
27 wMonth As Integer
28 wDayOfWeek As Integer
29 wDay As Integer
30 wHour As Integer
31 wMinute As Integer
32 wSecond As Integer
33 wMilliseconds As Integer
34 End Type
35
36 Public Sub ModiFileTime(sFile As String, 日期 As SystemTime)
37 Dim Rev As Long
38 Dim hFile As Long
39 Dim fTime As FILETIME
40 Dim fLTime As FILETIME
41 Dim fStruct As OFSTRUCT
42
43 Rev = SystemTimeToFileTime(日期, fLTime)
44 Rev = LocalFileTimeToFileTime(fLTime, fTime)
45 hFile = OpenFile(sFile, fStruct, OF_READWRITE)
46 Rev = SetFileTime(hFile, fTime, fTime, fTime)
47 Rev = CloseHandle(hFile)
48 End Sub
49
50 '使用方法
51 Private Sub Form_Load()
52 Dim 日期 As SystemTime
53 With 日期 '2008/04/14 20:00:00
54 .wYear = 2008
55 .wMonth = 4
56 .wDay = 14
57 .wHour = 20
58 .wMinute = 0
59 .wSecond = 0
60 End With
61 ModiFileTime "C:\1.ico", 日期
62 End Sub
63
