how to rename a file with adding current date?

[Guest_imported]

i want to rename my log file with a backup date,like log_03122002.log,how get it?

 

[sfriday]

I had to do a similar thing, Only I had to take the date a file was last modified.

You should be able to use the date function to get the current system date.

You can not rename you will have to copy and delete the original.

A sample of my code is shown below.

Hope it helps.

day = Left(objItem.DateLastModified,2)
mth = Mid(objItem.DateLastModified,4,2)
year = Mid(objItem.DateLastModified,7,2)
hour = Mid(objItem.DateLastModified,10,2)
minute = Mid(objItem.DateLastModified,13,2)
sec = Mid(objItem.DateLastModified,16,2)
If fso.FileExists(destname & day & mth & year & hour & minute & sec & ".CSV&quot then
msgbox objItem.name & " Already exists in destination directory, Please call the helpdesk"
Else
fso.CopyFile dirname & objitem.Name ,destname & year & mth & day & hour & minute & sec & ".CSV"
End If

If you want to see all of the program, let me know.

Regards
Steve Friday

 

[Mighty]

If I presume that the file you want to rename is c:\logs\log.log, you can rename it as follows

Dim myDay, myMonth, myYear
if Day(date) < 10 then
myDay = &quot;0&quot; & Day(date)
else
myDay = Day(Date)
end if

if Month(date) < 10 then
myMonth = &quot;0&quot; & Month(date)
else
myMonth = Month(Date)
end if

myYear = Year(Date)

Dim fso
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot
fso.MoveFile &quot;c:\logs\log.log&quot;, &quot;c:\logs\log_&quot; & myMonth & myDay & myYear & &quot;.log&quot;
set fso = nothing

Hope that helps Mise Le Meas,

Mighty