Я до сих пор не понимаю...
То есть взяли
вот этот примерчик. Расписали под нас... Запустили...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Option Explicit
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private 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
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, _
lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, _
lpLastWriteTime As FILETIME) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Sub Test()
Dim lngHandle As Long
Dim Ft1 As FILETIME, Ft2 As FILETIME, SysTime As SYSTEMTIME
'открытие файла
lngHandle = CreateFile("C:\Users\FileNo2.txt", GENERIC_WRITE, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, _
OPEN_EXISTING, 0, 0)
'времена файла
GetFileTime lngHandle, Ft1, Ft1, Ft2
'преобразование форматов времени
FileTimeToLocalFileTime Ft2, Ft1
'преобразование форматов времени
FileTimeToSystemTime Ft1, SysTime
MsgBox Str$(SysTime.wYear) & "-" & Str$(SysTime.wMonth) & "-" & _
Str$(SysTime.wDay) & " " & Str$(SysTime.wHour) & ":" & _
Str$(SysTime.wMinute) & ":" & Str$(SysTime.wSecond) & "." & _
Str$(SysTime.wMilliseconds)
'закрытие файла
CloseHandle lngHandle
End Sub
Всё работает, всё выдает...
---------------------------
Microsoft Excel
---------------------------
2012- 4- 30 13: 52: 7. 875
---------------------------
ОК
---------------------------
