VBNet - Форум - Атрибуты

Вопрос: Атрибуты Добавлено: 30.05.03 14:09

Автор вопроса: Падре | Web-сайт: vbstreets.narod.ru

А как программно узнать когда файл был создан, и когда изменен?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737	Профиль \| \| #1	Добавлено: 31.05.03 00:58
	Option Explicit Private Declare Function OpenFile Lib "kernel32.dll" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long Private Declare Function GetFileTime Lib "kernel32.dll" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long Private Declare Function FileTimeToLocalFileTime Lib "kernel32.dll" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long Private Declare Function FileTimeToSystemTime Lib "kernel32.dll" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long Private Const OF_READ As Long = &H0 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As Integer Reserved2 As Integer szPathName(128) As Byte 'OFS_MAXPATHNAME 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 Sub Command1_Click() Dim hFile As Long ' Манипулятор на файл. 'Если имя файла больше 128 символов, то надо использовать CreateFile Dim ctime As FILETIME ' Время создания файла Dim atime As FILETIME ' Время последнего открытия файла Dim mtime As FILETIME ' Время последнего изменения файла Dim Cthetime As SYSTEMTIME ' Структура для конвертирования формата времени создания файла Dim Athetime As SYSTEMTIME ' Структура для конвертирования формата времени последнего открытия файла Dim Mthetime As SYSTEMTIME ' Структура для конвертирования формата времени последнего изменения файла Dim ofOpen As OFSTRUCT ' Структура для открытия файла Dim rc As Long ofOpen.cBytes = Len(ofOpen) ' Получаем манипулятор файла hFile = OpenFile("C:\MyFile.txt", ofOpen, OF_READ) If hFile = -1 Then MsgBox "Файл не найден!", vbInformation Exit Sub End If 'Узнаем время создания, открытия, изменения файла rc = GetFileTime(hFile, ctime, atime, mtime) 'Конвертируем время создания в локальный часовой пояс rc = FileTimeToLocalFileTime(ctime, ctime) rc = FileTimeToLocalFileTime(atime, atime) rc = FileTimeToLocalFileTime(mtime, mtime) Ответить

Номер ответа: 2
Автор ответа:

Raven

ICQ: 174882249

Вопросов: 7
Ответов: 4

Профиль | | #2

Добавлено: 05.06.03 15:11

Ja horoshii primer te na mail skinul

Ответить

Страница: 1 |