修改文件夹创建时间和修改时间
来源:互联网 发布:春日局 知乎 编辑:程序博客网 时间:2024/05/21 17:37
模块
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Public Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public 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
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
Public Const INVALID_HANDLE_VALUE = -1
Public Function SetDirTime(DirName As String, NewTime As SYSTEMTIME) As Boolean
Dim hDir As Long
Dim lpCreationTime As FILETIME
Dim lpLastAccessTime As FILETIME
Dim lpLastWriteTime As FILETIME
Dim retval As Boolean
Dim sAttribute As SECURITY_ATTRIBUTES
hDir = CreateFile(DirName, GENERIC_WRITE, FILE_SHARE_READ, sAttribute, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
If hDir = INVALID_HANDLE_VALUE Then SetDirTime = False: Exit Function
Call SystemTimeToFileTime(NewTime, lpCreationTime) ' 转换成文件的时间格式
Call SystemTimeToFileTime(NewTime, lpLastAccessTime)
Call SystemTimeToFileTime(NewTime, lpLastWriteTime)
retval = SetFileTime(hDir, lpCreationTime, lpLastAccessTime, lpLastWriteTime)
CloseHandle (hDir)
SetDirTime = retval
End Function
'窗体
Private Sub Form_Load()
Dim NewTime As SYSTEMTIME
NewTime.wYear = Year(Now)
NewTime.wMonth = Month(Now)
NewTime.wDay = Day(Now)
NewTime.wDayOfWeek = Weekday(Now)
NewTime.wHour = Hour(Now)
NewTime.wMinute = Minute(Now)
NewTime.wSecond = Second(Now)
Call SetDirTime("H:/My Documents", NewTime)
End Sub
- 修改文件夹创建时间和修改时间
- windows用powershell修改文档/文件夹创建时间、修改时间
- 修改文件夹时间
- 文件的大小、创建时间、修改时间和访问时间
- VC++ 获取文件属性创建时间、修改时间和访问时间
- java获取文件创建和修改时间
- python 获取文件修改和创建时间
- 列出文件夹下修改时间
- python文件夹遍历,文件操作,获取文件修改创建时间
- python文件夹遍历,文件操作,获取文件修改创建时间
- iOS文档排序按修改/创建时间遍历文件夹
- python文件夹遍历,文件操作,获取文件修改创建时间
- python文件夹遍历,文件操作,获取文件修改创建时间
- python文件夹遍历,文件操作,获取文件修改创建时间
- 得到文件创建时间和修改时间的最大者
- PHP获取文件创建时间和修改时间相关函数
- JAVA读取文件的创建时间和修改时间
- JAVA读取文件的创建时间和修改时间
- xml学习--1什么是XML
- 在MIDP1.0下实现图片翻转
- 关闭页面前的操作
- [转载]JAVA编程规范
- xmlhttp定时无刷新更新数据库数据
- 修改文件夹创建时间和修改时间
- 读编是这样编成的。
- Linux 指令大全
- Word中实现格式查找
- 摄影中的技巧
- 结束任务函数 Endtask function
- 微软防止钩子注入的后门函数RegisterSystemThread
- qq2005beta1/2/3 cs 协议 release 1
- 数据库设计经验谈(上)---- 选择自 softj 的 Blog