‘VBA Visual Basic EXCEL<\/p>\n
‘Changing a files created, modified and accessed times.
\n‘The following code demonstrations how to alter the three file date stamps (creation, last accessed and last modified).<\/p>\n
<\/p>\n
Option Explicit<\/p>\n
Private oCollec As Collection<\/p>\n
Private Type FILETIME
\nLowDateTime As Long
\nHighDateTime As Long
\nEnd Type<\/p>\n
Private Type SYSTEMTIME
\nYear As Integer
\nMonth As Integer
\nDayOfWeek As Integer
\nDay As Integer
\nHour As Integer
\nMinute As Integer
\nSecond As Integer
\nMilliseconds As Integer
\nEnd Type<\/p>\n
Private Declare Function CreateFile Lib \u00ab\u00a0kernel32\u00a0\u00bb Alias \u00ab\u00a0CreateFileA\u00a0\u00bb (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
\nPrivate Declare Function SetFileTime Lib \u00ab\u00a0kernel32\u00a0\u00bb (ByVal hFile As Long, lpCreationTime As Any, lpLastAccessTime As Any, lpLastWriteTime As Any) As Long
\nPrivate Declare Function SystemTimeToFileTime Lib \u00ab\u00a0kernel32\u00a0\u00bb (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
\nPrivate Declare Function CloseHandle Lib \u00ab\u00a0kernel32\u00a0\u00bb (ByVal hObject As Long) As Long
\nPrivate Declare Function LocalFileTimeToFileTime Lib \u00ab\u00a0kernel32\u00a0\u00bb (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long<\/p>\n
‘Purpose : To modify file creation, last accessed and last modified time for a file
\n‘Inputs : sFileName The path and name of the file to alter.
\n‘ dFileDate The new file date.
\n‘ [bSetCreationTime] If True alters the file creation time.
\n‘ [bSetLastAccessedTime] If True alters the file last modified\/accessed time.
\n‘ [bLastWriteTime] If True alters the file last write time.
\n‘Outputs : Returns True if succeeded in altering the file time.
\n‘Notes :
\n‘Revisions :<\/p>\n
Function FileSetDate(ByVal sFileName As String, ByVal dFileDate As Date, Optional bSetCreationTime As Boolean = False, Optional bSetLastAccessedTime As Boolean = False, Optional bSetLastModified As Boolean = False) As Boolean
\nConst GENERIC_WRITE = &H40000000, OPEN_EXISTING = 3
\nConst FILE_SHARE_READ = &H1, FILE_SHARE_WRITE = &H2<\/p>\n
Dim lhwndFile As Long
\nDim tSystemTime As SYSTEMTIME
\nDim tLocalTime As FILETIME, tFileTime As FILETIME<\/p>\n
tSystemTime.Year = Year(dFileDate)
\ntSystemTime.Month = Month(dFileDate)
\ntSystemTime.Day = Day(dFileDate)
\ntSystemTime.DayOfWeek = Weekday(dFileDate) – 1
\ntSystemTime.Hour = Hour(dFileDate)
\ntSystemTime.Minute = Minute(dFileDate)
\ntSystemTime.Second = Second(dFileDate)
\ntSystemTime.Milliseconds = 0<\/p>\n
‘Open the file to get the filehandle
\nlhwndFile = CreateFile(sFileName, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
\nIf lhwndFile Then
\n‘File opened
\n‘Convert system time to local time
\nSystemTimeToFileTime tSystemTime, tLocalTime
\n‘Convert local time to GMT
\nLocalFileTimeToFileTime tLocalTime, tFileTime
\n‘——-Change date\/time property of the file
\nFileSetDate = True
\nIf bSetCreationTime Then
\nFileSetDate = FileSetDate And CBool(SetFileTime(lhwndFile, tFileTime, 0&, 0&))
\nEnd If
\nIf bSetLastAccessedTime Then
\nFileSetDate = FileSetDate And CBool(SetFileTime(lhwndFile, 0&, tFileTime, 0&))
\nEnd If
\nIf bSetLastModified Then
\nFileSetDate = FileSetDate And CBool(SetFileTime(lhwndFile, 0&, 0&, tFileTime))
\nEnd If
\n‘Close the file handle
\nCall CloseHandle(lhwndFile)
\nEnd If
\nEnd Function<\/p>\n
‘Demonstration routine
\nSub Test()
\n‘Set the creation time
\nFileSetDate \u00ab\u00a0C:\\temp\\Posters.html\u00a0\u00bb, Now, True
\n‘Set the last accessed time
\nFileSetDate \u00ab\u00a0C:\\temp\\Posters.html\u00a0\u00bb, Now, , True
\n‘Set the last write time
\nFileSetDate \u00ab\u00a0C:\\temp\\Posters.html\u00a0\u00bb, Now, , , True
\nEnd Sub<\/p>\n
Public Sub Macro1()
\nDim chemin As String<\/p>\n
chemin = InputBox(\u00ab\u00a0Entrez le chemin du r\u00e9pertoire\u00a0\u00bb, \u00ab\u00a0R\u00e9pertoire\u00a0\u00bb)
\n‘chemin = \u00ab\u00a0N:\\GestionSousMandat\\PTF_SOLDES\\\u00a0\u00bb<\/p>\n
Set oCollec = New Collection
\nSearchAllFilesInFolders (chemin)
\nAfficheListe
\nSet oCollec = Nothing<\/p>\n
End Sub<\/p>\n
Private Sub SearchAllFilesInFolders(ByVal chemin As String)<\/p>\n
Dim fso As FileSystemObject
\nDim dossier As Folder<\/p>\n
Set fso = New FileSystemObject
\nSet dossier = fso.GetFolder(chemin)
\nCall scanFolder(dossier)<\/p>\n
End Sub<\/p>\n
Private Sub scanFolder(ByVal dossier As Folder)
\nDim sousdossier As Folder
\nDim fichier As File<\/p>\n
For Each fichier In dossier.Files
\noCollec.Add fichier
\nNext<\/p>\n
For Each sousdossier In dossier.SubFolders
\nCall scanFolder(sousdossier)
\nNext<\/p>\n
End Sub<\/p>\n
Private Sub AfficheListe()
\nDim i As Long
\nDim lig As Long
\nDim ws As Worksheet<\/p>\n
Set ws = ThisWorkbook.Worksheets(1)
\nlig = 2
\nws.Columns(1).Clear<\/p>\n
With ws
\nFor i = 1 To oCollec.Count
\n.Range(\u00ab\u00a0A\u00a0\u00bb & lig).Value = oCollec(i)
\nFileSetDate oCollec(i), Now, , , True<\/p>\n
lig = lig + 1
\nNext i
\nEnd With
\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
‘VBA Visual Basic EXCEL ‘Changing a files created, modified and accessed times. ‘The following code demonstrations how to alter the three file […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-982","post","type-post","status-publish","format-standard","hentry","category-informatique"],"_links":{"self":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/982","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=982"}],"version-history":[{"count":2,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/982\/revisions"}],"predecessor-version":[{"id":984,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/982\/revisions\/984"}],"wp:attachment":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=982"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=982"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=982"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}