Vista - copy and rename into same dir

hey all,
is there an easy way to copy each file in my directory and paste into the
same diretory but with a number 1 appended to the filename?

dir1 before
fileA
fileB


dir2 after script
fileA
fileA1
fileB
fileB1

thanks,
rodchar

Hi rodchar,

----

hope this one helps you a little bit...

--Start --

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(".")
ReDim aFile(500)
i = 0
For Each oFile In oFolder.Files
aFile(i) = oFile.Name
i= i+1
Next
ReDim Preserve aFile(i -1)
For i = LBound (aFile) To UBound (aFile)
If aFile(i) <> "" then
sFilename = Left(aFile(i), InStr(aFile(i), ".") -1)
sEndung = Mid(aFile(i), InStr(aFile(i), "."), _
Len(aFile(i))- InStr(aFile(i), ".")+1)
sFilename = sFilename & "1" & sEndung
If MsgBox("File """ & aFile(i) & """ will be " _
& "renamed To """ & sFilename & """" , _
1, "OK") <> 1 _
Then WScript.Quit
If Not oFSO.Fileexists(sFilename) Then
' oFSO.CopyFile aFile(i), sFilename
End If
End If
Next

-- End --

The script looks in the directory where it resides and copies all File to the same folder...

Try it first.

If it satisfies your needs the only things you have to do are the following..

Delete this code

If MsgBox("File """ & aFile(i) & """ will be " _
& "renamed To """ & sFilename & """" , _
1, "OK") <> 1 _
Then WScript.Quit

This is for the messagebox.

And uncomment this one

' oFSO.CopyFile aFile(i), sFilename


regards

Dirk

thanks for the help,
rod.

"Dirk Stegemann" wrote: