topic Re: change name while copying a file in vbs in Operating System - Microsoft

change name while copying a file in vbs

kabucek — Mon, 17 Mar 2008 12:49:07 GMT

hi all,

i have the following script,
and I want to change the name of destination file to
something.txt,
how to do it?

N=Now
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder="L:\"
strNewDest = "Q:\"
Set objFolder = objFSO.GetFolder(strFolder)
For Each strFiles In objFolder.Files
If DateDiff("d",N, strFiles.DateLastModified) = -1 Then
objFSO.CopyFile strFiles , strNewDest & "\" & strFiles.Name
End If
Next

thanks

Re: change name while copying a file in vbs

Gfuss — Tue, 18 Mar 2008 10:17:53 GMT

kabucek,

Using .MoveFile, you can specify the new name as shown below:

objFSO.MoveFile "C:\myFileName.txt" , "C:\myNewFileName.txt"

Re: change name while copying a file in vbs

kabucek — Tue, 18 Mar 2008 13:05:13 GMT

but these files are ntbackup reports and the name changes periodically.
i want to catch "NewestFile" and copy that file.
thanks

Re: change name while copying a file in vbs

Gfuss — Tue, 18 Mar 2008 13:17:56 GMT

Instead of using strFiles.Name for the destination, simply place in your new file name. For example:

objFSO.CopyFile strFiles , strNewDest & "\" & something.txt

If there are multiple ones, you could also just try adding the new extension:

objFSO.CopyFile strFiles , strNewDest & "\" & strFiles.Name & ".txt"