Rename File if Exist with DateTime

[OdAwG]

Hello All,

I would i check to see if a file exist and if it does exist, then rename the
file with the date and time attached to the name:

Example:

If File.Exists("\\ server\share\fo lder\myfile.txt ") Then
rename \\server\share\ folder\myfile.t xt
\\server\share\ folder\myfile_d ate_time.txt
End If

I need to have the date and time added because the file can be generated
more than once a day and we do not want to over write the existing.

Would I need to crreate a function and then call that function in a macro

Thanks for any and all help

Argus

[pietlinden]

look up format and Date or Now in Help...

now will return a date/time, e.g.
7/31/2006 9:44:33 PM
so you could use format to strip out the spaces and all that fun stuff.
Then just use Name to rename the file.

[Chuck]

On Tue, 01 Aug 2006 02:40:37 GMT, "OdAwG" <Od***@goneloos e.comwrote:

>Hello All,

I would i check to see if a file exist and if it does exist, then rename the
file with the date and time attached to the name:

Example:

If File.Exists("\\ server\share\fo lder\myfile.txt ") Then
rename \\server\share\ folder\myfile.t xt
\\server\share \folder\myfile_ date_time.txt
End If

I need to have the date and time added because the file can be generated
more than once a day and we do not want to over write the existing.

Would I need to crreate a function and then call that function in a macro

Thanks for any and all help

Argus

You're saving the file as a txt file so the date and time can be added when the
file is saved. Make a macro to save the file. first command:

Open Report: exact report name
OutputTo.
Output type: Report, Output Name: The exact name of the report
Output Format: MS-DOS TEXT
Output File: "\\server\folde r\myfile "
&(Format(Now(), "yymmdd-hhmmss AM/PM"))&".txt"

With quotes as shown. Unwrap text. Note: there is no .txt after myfile, but
there is a space before the closing quote.

The saved file will be: myfile 060801-084537 AM

Just a wizzard prodder
Chuck
--

[Terry Kreft]

.... you need Dir as well to find if the file exists.

A quick example of how this might be implemented

'************** *************** *
Option Compare Database
Option Explicit

Enum RENAME_FILE_RES ULT
rfrRenamed = 0
rfrFileNotExist = 1
rfrRenameFailed = 2
End Enum

Function RenameFile(File Name As String) As RENAME_FILE_RES ULT
Dim strFileName As String
Dim strExt As String
Dim strNow As String
Dim intInstr As Integer
Dim rfrRet As RENAME_FILE_RES ULT

' This determines the format of the date/time string
' you can change this butyou can't include any illegal
' filename charactrs
Const DATE_TIME_FORMA T = "yyyymmdd hh:nn:ss"
strFileName = Trim(FileName)

If Len(Dir(strFile Name)) 0 Then
intInstr = InStrRev(strFil eName, ".")
If intInstr 0 Then
strExt = Mid(strFileName , intInstr)
End If

strNow = Format(Now, " yyyymmdd hh_nn_ss")
strFileName = Left(strFileNam e, Len(strFileName ) - Len(strExt))

strFileName = strFileName & strNow & strExt
' If you get an error 5 at this point then the format you've
' set for DATE_TIME_FORMA T probably contains
' illegal filename characters
Name FileName As strFileName

If Len(Dir(strFile Name)) 0 Then
rfrRet = rfrRenamed
FileName = strFileName
Else
rfrRet = rfrRenameFailed
End If
Else
rfrRet = rfrFileNotExist
End If

RenameFile = rfrRet
End Function

Function TestRenameFile( )
' This is a sample call
Dim strFN As String
Dim rfrRet As RENAME_FILE_RES ULT

strFN = "d:\text.tx t"

rfrRet = RenameFile(strF N)
Select Case rfrRet
Case rfrRenamed
MsgBox "The file was successfully renamed to '" & strFN & "'"
Case rfrRenameFailed
MsgBox "The file '" & strFN & "' was not renamed"
Case rfrFileNotExist
MsgBox "The file '" & strFN & "' does not exist"
End Select
End Function
'************** *************** *
--

Terry Kreft
<pi********@hot mail.comwrote in message
news:11******** **************@ i3g2000cwc.goog legroups.com...

>
look up format and Date or Now in Help...

now will return a date/time, e.g.
7/31/2006 9:44:33 PM
so you could use format to strip out the spaces and all that fun stuff.
Then just use Name to rename the file.