Смена даты и времени создания, изменения у файла. - VB
Формулировка задачи:
Кто-нибудь знает как считывать и особенно записывать(менять) у файла дату и время создания, изменения и.т.д.
Решение задачи: «Смена даты и времени создания, изменения у файла.»
textual
Листинг программы
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 TouchFileTimes Lib 'imagehlp.dll' (ByVal FileHandle As Long, ByRef pSystemTime As Any) As Long Private Declare Function CreateFile Lib 'kernel32' Alias 'CreateFileA' (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal 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 Sub Form_Load() 'KPD-Team 2001 'URL: [url]http://www.allapi.net/[/url] 'E-Mail: [email]KPDTeam@Allapi.net[/email] Const sFile As String = 'c:myfile.txt' Dim lngHandle As Long lngHandle = CreateFile(sFile, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0) 'Change the last modified date of 'c:myfile.txt' 'to the current date If TouchFileTimes(lngHandle, ByVal 0&) = 0 Then MsgBox 'Error while changing file dates!' Else MsgBox 'File date changed successfully!' End If CloseHandle lngHandle End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д