Thread: Multiple Copy and Rename of File...

Hey All,
Not sure this is the best place for this...but will be moved I am sure if not

I want to create a script that I can run to copy a file and rename the copy, as I very often have to multiple copies of one file with different names (mainly database access files...but that is another story).

So what I would like to do is this..

copyNrename_function(wendy, cliff)

So that is just calling the script from the commandline or something and the names in the brackets are part of the rename bit...so the files would be renames as follows

front_wendy
front_cliff

Obv the ability to have as many names in those brackets ..

Is that at all possible????

Thanks guys!!

Graham.

Sure it is...pass a comma-delimited string as the parameter and use VBScripts' Split function to separate each name. Then loop through and copy and rename the files.

Originally Posted by jmurrayhead

Sure it is...pass a comma-delimited string as the parameter and use VBScripts' Split function to separate each name. Then loop through and copy and rename the files.

Ok thanks J. Will come up with a script and might be back for some help

G

Hey J et Al..

Here is my first poor attempt and an idea...i suspect there are more errors in there than anything else...but other than editing VB in Access DB's not really played with it so it is a combination of what I kinda know and what I ahve read...

Downloading VB Express 2008 now to see if that helps

but here is my code...advice on the principle would be apprecaited...

Code:

Public Function duplicate_and_rename(name_list)

Dim name_array() AS String = Split(name_list)
Dim array_count As Integer

array_count = Count(name_array)

For i = 0 To array_count
SourceFile = "dbfront.mdb"
DestinationFile = "dbfront_" & array_count[i] & ".mdb"
FileCopy(SourceFile, DestinationFile)
Loop

End Function

Cheers,

G

i have used a vbscript that i wrote, where it would give you a popup box that you can use to input your comma delimited filenames and it would take that and do it's other things. something like this:

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 "c:\" & strSource, "c:\" & strDestination
loop

Set oFSO = Nothing

then save the file as a filename.vbs file and run it using either CScript from a command prompt or Wscript from with in windows.

wow, thanks mehere! I will give it a go, much apprecaited

you could make it completely generic by allowing for another input box for your source file as well ...

Originally Posted by mehere

you could make it completely generic by allowing for another input box for your source file as well ...

yeah I was thinking about it, once I get to grips with it and all
I'lll post anything up here if I make it do more!

thanks.

ok...struggling to run this...prob me being stupid. Tried running the following

wscript x:\multi_copy.vbs

from both a command line and the run prompt...

nothing happens at all....

any idas????

thanks.

Graham.

See here: Running VBScripts and JavaScripts from the command shell