VBS Copy folder to multiple locations specified in text file

[benIT]

Hi All.

I need to copy a folder (containing Files) into multiple locations that are specified in a txt file (a file location on each line)

I have below code to get started... It copies a folder to all sub folders, rather than selecting from text file - not sure if this helps in any way

Help very much appreciated

Ben




Set fso = CreateObject("Scripting.FileSystemObject")

set mainfolder=fso.GetFolder("C:\vbcopy\shorts\")

Set foldercollection = mainfolder.SubFolders

For Each folder In foldercollection

fso.copyfile "C:\vbcopy\Copyfile.txt", folder&"\Copyfile.txt", true

Next

[sister_annex]

I Think you need to open the file and read it in to the script - can't remember off the top of my head how this works but i may be able to find an example

Mark

[sister_annex]

Try this, all you need to add is the odd bit of code you already have

i have added a few comments to the code to help - or atleast try

Let me know how you get on

Mark

Set myFSO = CreateObject("Scripting.FileSystemObject")

filelocation = "Full PATH here" 'Enter the location of your txt file here

If myFSO.FileExists(filelocation) Then 'this checks if the file exists

Set logfile = myFSO.OpenTextFile(filelocation, 1) 'opens the text file for reading only

Do While Not logfile.AtEndOfStream 'initiates a loop and loops until the end of the file
   	strcontents = ""
	strcontents = logfile.ReadLine 'reads a line into the variable
	
    If Not strcontents = "" then 'checks the line is not empty

             'DO YOUR WORK HERE

    End if	    
	    
Loop

logfile.Close 'closes the file

end if

[benIT]

With my thanks to sister_annex for their help, the following script now works like a dream, I have published it here to aid others if they need similar script.....

Set myFSO = CreateObject("Scripting.FileSystemObject")

filelocation = "c:\vbcopy\paths.txt" 'Enter the location of your txt file here

If myFSO.FileExists(filelocation) Then 'this checks if the file exists

Set logfile = myFSO.OpenTextFile(filelocation, 1) 'opens the text file for reading only

Do While Not logfile.AtEndOfStream 'initiates a loop and loops until the end of the file
   	strcontents = ""
	strcontents = logfile.ReadLine 'reads a line into the variable
	
    If Not strcontents = "" then 'checks the line is not empty

             'DO YOUR WORK HERE

		Set fso = CreateObject("Scripting.FileSystemObject") 

		Set FSO =CreateObject("scripting.FileSystemObject")
     		fso.copyfolder "C:\vbcopy\Student Data files", strcontents&"\", true


    End if	    
	    
Loop

logfile.Close 'closes the file

end if