Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing the Date/Time Stamp
Now the clocks have gone back, and I forgot to change the time on my camera,
the time shown as the file creation date/time is now out by an hour. How can I change this time in a VBA subroutine? I have a routine wot does it, but this relies upon the presence and use of a programme called "TOUCH.COM" that I don't have on this computer. I had hoped that this line would work:- Set f.DateLastModified = myTest2 ....but it doesn't, so I resorted to creating a batch file..... Here's the relevant part of the routine:- Select Case DoWhat Case Is = "ReName" If NoDuplicate(LastRow, FirstRow, N, "B") _ And Len(Trim(Range("B" & N).Value)) 0 Then OldName = myFolderName & Range("A" & N).Value If Len(Ext(NewName)) = 0 Then _ NewName = NewName & "." & Ext(OldName) Name OldName As NewName Else Range("B" & N).Font.ColorIndex = 3 Range("B" & N).Font.Bold = True myText = "We have a duplicate name !" End If Case Is = "ReDate" NewDate = Range("D" & N).Value For M = 1 To .FoundFiles.Count myTest1 = FileNameAndExt(.FoundFiles(M)) myTest2 = Worksheets("Sheet1").Range("A" & N).Value If myTest1 = myTest2 Then Set f = FSO.GetFile(.FoundFiles(M)) If Worksheets("Sheet1").Range("D" & N).Value < "" Then myTest1 = f.DateLastModified myTest2 = Worksheets("Sheet1").Range("D" & N).Value myTest1 = "C:\Progra~1\Utilities\touch " & _ myShortPath(.FoundFiles(M)) & _ " /D:" & myWord(1, myTest2, " ") & _ " /T:" & myWord(2, myTest2, " ") ' e.g. "C:\Program Files\Utilities\touch" 0891*.JPG /D:26/02/2005 /T:15:04:00 /T:15:04:00 WriteThisToFile MyBatchFile, myTest1 'Set f.DateLastModified = myTest2 End If M = .FoundFiles.Count End If Next M Case Else End Select Regards Robin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Comparing 2 files on date/time stamp, and based time difference do a subroutine | Excel Programming | |||
Date-Time Stamp | Excel Discussion (Misc queries) | |||
date/time stamp | Excel Worksheet Functions | |||
Date/time Stamp? | Excel Programming | |||
Date time stamp | Excel Programming |