VBS Script zum kopieren mehrerer Dateien die in einem TXT File gelistet sind

'-------------------------------------------------------  
' Filecopy aus Textdatei  
'   
'-------------------------------------------------------  

' #####################################################  
' ###            C H A N G E   L O G                ###  
' #####################################################  
' 07.03.2011 /ma Erstellung des Scriptes   
 

'Variabendefinition  
Option Explicit
Dim fso, file, oFile, strQuelle, StrZiel, StrLog, StrToCopy, objFile, objfso, strLine
Set objFSO = CreateObject("Scripting.FileSystemObject")  


StrZiel = "C:\temp\vbtest\test\ziel\"  
StrLog =  "C:\temp\vbtest\test\logfile.txt"  

StrToCopy = "C:\temp\vbtest\test\tocopy.txt"  


Set objFile = objfso.OpenTextFile(StrToCopy, 1)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    FileCopy strLine
Loop
File.Close




'---------------------------------- FUNKTIONEN ----------------------------------  

Function FileCopy(strQuelle)
	Set fso = CreateObject("Scripting.FileSystemObject")  
	if fso.FileExists(strQuelle) then
		fso.CopyFile strQuelle, StrZiel
		set fso = nothing
	else
		Set oFile = fso.OpenTextFile(StrLog,8,true)
		oFile.WriteLine "Folgende Datei wurde nicht gefunden: " & strQuelle  
		oFile.close
		Set fso = nothing
	end if
	Set fso = nothing
End Function

'-------------------------------------------------------  
' Filecopy aus Textdatei  
'-------------------------------------------------------  

' #####################################################  
' ###            C H A N G E   L O G                ###  
' #####################################################  


'Variabendefinition  
Option Explicit
Dim fso, file, oFile, strQuelle, StrZiel, StrLog, StrToCopy, objFile, strLine, strFolder, strFolderLen, strLength, strTrenner, strFilename, strDestination, strdest, objFSO, objFolder, objShell, ObjWshShell

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set fso = CreateObject("Scripting.FileSystemObject")  

StrZiel = "C:\temp\vbtest\test\ziel"  
StrLog =  "C:\temp\vbtest\test\logfile.txt"  
StrToCopy = "C:\temp\vbtest\test\tocopy.txt"  

Set objFile = objfso.OpenTextFile(StrToCopy, 1)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
	Folderpath strLine
    FileCopy strLine
Loop
objFile.Close




'---------------------------------- FUNKTIONEN ----------------------------------  

Function FileCopy(strQuelle)
	if fso.FileExists(strQuelle) then
		Set ObjWshShell = WScript.CreateObject("WScript.Shell")  
		'msgbox "CMD robocopy " & Chr(34) & strQuelle & Chr(34) & " " & Chr(34) & strDest & strFilename & Chr(34) & " /s /e"  
		ObjWshShell.Run "robocopy " & Chr(34) & strQuelle & Chr(34) & " " & Chr(34) & strDest & Chr(34) & " /s /e"  
		Set ObjWshShell = Nothing
	else
		Set oFile = fso.OpenTextFile(StrLog,8,true)
		oFile.WriteLine "Folgende Datei wurde nicht gefunden: " & strQuelle  
		oFile.close
		Set fso = nothing
	end if
End Function

Function Folderpath(strLine)
	strFolderLen = Len(strLine)
	strLength = strFolderLen - 2
	strFolder = Right(strLine, strLength)
	strTrenner = InStrRev(strFolder,"\")  
	strDestination = Left(strFolder, strTrenner)
	strFilename = Right(strFolder, strTrenner)
	strDest = StrZiel & strDestination
End Function