check for file and backup

I have the following code a vb sript that looks to see of there is the ...\TestDir and if not
creates it and then copies a file C:\temp\extend.dat to it. Then if the \TestDir does exist it
copies the C:\temp\extend.dat to it.

The one thing I need to and not sure of how, (without making a long deal out of it) I just want to add
another if then.

If the ...\TestDir does exists I want to add a check in the \TestDir to see if a file of extend.dat already
does exist and if so make a backup copy of it in the \TestDir such as extend.dat-Date then copy the
C:\temp\extend.dat to ...\TestDir

I just need to check if there is a ...\TestDir\extend.dat and make a backup of it before copying the C:\temp\extend.dat to it if it does exist.



Set oShell = CreateObject("Wscript.Shell")
Profile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
Dim objFSO, objFolder, objShell, strDirectory, fso
strDirectory = Profile & "\Local Settings\Application Data\Microsoft\TestDir"

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If not objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.CreateFolder(strDirectory)
   Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\temp\extend.dat", strDirectory & "\", True
Else
If objFSO.FolderExists(strDirectory) Then
   Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\temp\extend.dat", strDirectory & "\", True
End If
End If
set fso = nothing

Thanks,Start Free Trial