Thread: Multiple Copy and Rename of File...

Originally Posted by jmurrayhead

See here: Running VBScripts and JavaScripts from the command shell

thanks J. I actually wasn't doing anything wrong..the file for some strange reason was empty!

the 'loop' should hav ebeen 'next' so changed that...

This is the current code

Code:

strFiles = InputBox("Input file names seperated by commas.", "Names")
arrFiles = split(strFiles,",")
strSource = "dbfront.mdb"

set oFSO = CreateObject("Scripting.FileSystemObject")

for i = 0 to UBound(arrFiles)
	strDestination = "dbfront_" & arrFiles(i) & ".mdb"
	oFSO.CopyFile "x:\db_frontEnd\" & strSource, "x:\db_frontEnd\" & strDestination
next

Set oFSO = Nothing

Going to see if I can modify it a bit.

Grae

Hey All,
Modified it so that it now
1) will determine the current directory, so if you run this from the directory where the file is that you want to copy and rename it will sort that bit
2) you can enter the name of the file to copy in the process so it isn't hard coded

easy for many I am sure, but a little challenge for me!

There is aShowOpen function that can be used if the user is using XP or earlier, but I am running Vista so that wasn't going to work and coouldn't find a way round it..so chose to make the user type it in...not to hard really

so here it is ...

Code:

'get the current path
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

origFile = InputBox("Write the filename including extension you wish to copy.", "File to Copy")
strFiles = InputBox("Input file names seperated by commas.", "Names")

arrFiles = split(strFiles,",")
strSource = split(origFile,".")

set oFSO = CreateObject("Scripting.FileSystemObject")

for i = 0 to UBound(arrFiles)
	strDestination = strSource(0) & "_" & arrFiles(i) & "." & strSource(1)
	oFSO.CopyFile sCurPath & "\" & origFile, sCurPath & "\" & strDestination

next

Set oFSO = Nothing

wscript.echo "All finished."