VPF::Атрибуты файла - Форум программистов

-=A=-

Дата 4.5.2003, 17:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как из VB опредилить атрибуты файлов, такие как дата изменения, открытия и создания?

DIMA.NET

Дата 9.5.2003, 04:02 (ссылка)

(нет голосов)

Загрузка ...

invisible fighter

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 26.1.2003

Репутация: нет
Всего: нет

Для даты создания:

File.GetCreationTime(ByVal path As String)

Для даты последнего изменения:

File.GetLastWriteTime(ByVal path As String)

Для даты последнего обращения к файлу:

File.GetLastAccessTime(ByVal path As String)

P.S. VB.NET

--------------------

Дмитрий Катаев
----------------------
Я в контакте

-=A=-

Дата 9.5.2003, 21:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Это для vb.net, а для просого VB?

Cyrax

Дата 31.5.2003, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.5.2003
Где: Magnitogors, Russ ia

Репутация: нет
Всего: нет

Код


Private Const OPEN_EXISTING = 3
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type BY_HANDLE_FILE_INFORMATION
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    dwVolumeSerialNumber As Long
    nFileSizeHigh As Long
    nFileSizeLow As Long
    nNumberOfLinks As Long
    nFileIndexHigh As Long
    nFileIndexLow 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 Declare Function GetFileInformationByHandle Lib "kernel32" (ByVal hFile As Long, lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, 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 Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim hFile As Long, FileInfo As BY_HANDLE_FILE_INFORMATION
    Dim SysTime As SYSTEMTIME
    'create a handle to the file 'c:\autoexec.bat'
    hFile = CreateFile("c:\autoexec.bat", 0, 0, ByVal 0&, OPEN_EXISTING, 0, ByVal 0&)
    'retrieve the file information
    GetFileInformationByHandle hFile, FileInfo
    'close the handle
    CloseHandle hFile
    'show the result
    FileTimeToSystemTime FileInfo.ftCreationTime, SysTime
    Print SysTime.wDay & "." & SysTime.wMonth & "."; SysTime.wYear
End Sub

из API_Guide

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »