Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename file within a directory using creating date
Hi,
Could someone please assist me with obtaining the correct code for renaming a file or multiple files in a directory to include its creation date. This is the code I have so far and thanks in advance for any assistance: Sub RenameFileToDatedFile() 'Install a refernce to library: Microsoft Scripting Runtime Dim FSO As New FileSystemObject Dim afile As file 'Handle for fso 'File' Object Dim aPath As String Dim aName As String Dim sNewFile As String Dim sOldFile As String 'Set up your filespec aPath = sfol = "C:\Temp\Reports\" aName = "pcb.ppt" If FSO.FileExists(aPath & aName) Then Set afile = FSO.GetFile(aPath & aName) '<< Example of setting handle ' MsgBox "The File exists " & aFile.DateCreated 'Range("B50") = aFile.DateCreated sOldFile = "C:\Temp\Reports\pcb.ppt" sNewFile = "C:\Temp\Reports\Final PCB Data " & Format(afile.DateCreated, "dd-mmm-yy") & ".ppt" Name sOldFile As sNewFile End If 'Clean House Set afile = Nothing End Sub -- By persisting in your path, though you forfeit the little, you gain the great. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename file within a directory using creating date
You are 99.9% correct. You need one more statement FSO.MoveFile sOldFile,sNewFile -- joel ------------------------------------------------------------------------ joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=150611 Microsoft Office Help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can you copy a Excel file to a new directory and rename it? | Excel Discussion (Misc queries) | |||
Rename file based on current date | Excel Programming | |||
Creating a macro that lists directory names within a directory.... | Excel Programming | |||
Can I rename a directory using a macro | Excel Programming | |||
Creating a directory from a date | Excel Programming |