need to move a variable folder based on date -VBScript : this is what i have.

stSourceFolder = "C:\Users\HIRENS\Admin\" & Replace(CStr(Date()),"/",".")
stTargetFolder = "C:\Users\HIRENS\Admin\HIRENS\Admin\backup\"& Replace(CStr(),"DDMMYY")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject") 
' The script will error out if it tries to create a directory that already exist 
' so it is better to check for it first and only attempt to create it if it does 
' not exist. 
if not fso.FolderExists(strDirectory) then 
   ' If it gets here then the folder for the current date does not yet exist and 
   ' therefore is created. 
   Set objFolder = fso.CreateFolder(stTargetFolder) 
end if 
' This copies the files and overwrites them if they exist. 
fso.CopyFolder stSourceFolder, destinationDir, OverwriteExisting 
' If you entend to automate this script you should remove or rem out this next line. 
wscript.echo "Done" 
'If the target-folder does not exist then it will be created.
objFSO.CopyFolder stSourceFolder, stTargetFolder 

MsgBox "Folder copied"

Set fsoObj = Nothing
