VB Script ändert Dateinamen

 
'Vbscript zum Kopieren aller CSV Files in den Zielordner Archivieren mit angehängten Datum  


Set IFilesystem=CreateObject("Scripting.FileSystemObject")  
Set IWshShell3 = CreateObject("WScript.Shell")  
On error resume next
today = Date
' die rechten 2 Stellen benutzen, da im z.b. im Januar nur eine 1 ausgegeben wird, wir aber eine 2 stellige Angabe wollen  
Datum = right("0" & Day(today), 2)  & "." & right("0" & Month(today), 2) & "." & Year(today)   

'msgbox Datum  
SUBJECT1 = "Archivierung Beschichtungsanlage 4 erfolgreich!"  

SUBJECT = "Archivierung Beschichtungsanlage 4 Fehler!"  

source="\\path.com\nu\Produktion-Metall\MLS-ZKD\Beschichtungslinien\Beschichtungsanlage 4\Master_Archiv_MP377\"  
target="\\path.com\nu\Produktion-Metall\MLS-ZKD\Beschichtungslinien\Beschichtungsanlage 4\Master_Archiv_MP377\Archiv\"  

Set Folderobj=IFilesystem.getFolder(source)
for each file in Folderobj.files
        if right(lcase(file.name),4)=".csv" then  
		'msgbox File.name  
		help = replace(file.name,"_"," ")  
		'msgbox help  
		if left(lcase(help),6)="archiv" then  
			help = replace(help,"ARCHIV","")			  

			'msgbox help  

		end if
		
		IFilesystem.CopyFile File, target & Datum & help, true
                
        end if
next

' Statusbericht per E-Mail verschicken   

if err.number > 0 then

	IWshShell3.Run "C:\batch\Files_archivieren_beschichtungsanlage4\blat.exe " & "C:\batch\Files_archivieren_beschichtungsanlage4\mail.txt" _  
     & " -f mail@path.com " & " -subject """ & SUBJECT & """" _  
     & " -to mail@path.com,person1@path.com,person2@path.com " _  
     & " -server server1.path.com"  
else
	IWshShell3.Run "C:\batch\Files_archivieren_beschichtungsanlage4\blat.exe " & "C:\batch\Files_archivieren_beschichtungsanlage4\mail1.txt" _  
     & " -f mail@path.com " & " -subject """ & SUBJECT1 & """" _  
     & " -to mail@path.com,person1@path.com,person2@path.com " _  
     & " -server server.path.com"  

end if