Copying files from multiple folders to a single folder.

[Guest vemula4u@gmail.com]

Hi can some one help me in debugging the follwing script.

I am copying the files whouse location is given ina text file ie.

coomputerlist.txt to a folder d:\archive.I am reading the contents of

the

file from where i will pick the source location of the file.all the

files

here are located at different folders.

when iam running the script iam getting an error: filenot found.I

think it

is unable to read the source file in the methord objFSO.CopyFile

filename

"D:\Archive\"

which in a variable filename.

can some help me its very urgent.

 

Dim filename

Const OverwriteExisting = True

Const inputfile = "c:\computerlist.txt"

Set ifso = CreateObject("Scripting.Filesystemobject")

Set ifile = iFSO.OpenTextFile(inputfile)

Set objFSO = CreateObject("Scripting.FileSystemObject")

Do until ifile.AtEndOfLine

Filename = ifile.ReadLine

objFSO.CopyFile filename "D:\Archive\"

Loop