Brauche Unterztützung bei einen VB Script das prüft ob eine Datei vorhanden ist und gegebenfalls umnennt.

' 1. Wo befindet sich die *.id Datei? => Sub id:  
'    C:\Dokumente und Einstellungen\%Username%\Lokale Einstellungen\Anwendungsdaten\Lotus\Notes\Data  
'    Möglichkeiten:  
'	 A) Die Datei *.id befindet sich im o.g. Verzeichnis => Sub ini  
'    B) Die Datei *.id befindet sich nicht im o.g. Verzeichnis => Sub Exit  
'  
'  
'  

On Error Resume Next
'============================================================================================  
' Deklarationsteil Globale Variablen  
'============================================================================================  
Set oShell = CreateObject("Wscript.Shell")  
strUserProfile = oShell.ExpandEnvironmentStrings("%Userprofile%")  
strHomedrive = oShell.ExpandEnvironmentStrings("%Homedrive%")  
'============================================================================================  
' Sub id  
'============================================================================================  

Sub id()
Dim vartargetdata      'ID file  
	FulltextSearch ""+strUserProfile+"\Lokale Einstellungen\Anwendungsdaten\Lotus\Notes\Data", "*.id", targetdata  
		If vartargetdata = "*.id" Then   
			call ini()
		Else
			call benden()
		End If
end sub

'============================================================================================  
' Sub ini  
'============================================================================================  

Sub ini()
Dim vartargetdata    'inifile   
	FulltextSearch ""+strHomedrive+"\Programme\Lotus\Notes", "notes.ini", targetdata  
	If  vartargetdata = "notes.ini" Then  
		Set objFSO = CreateObject("Scripting.FileSystemObject")  
		objFSO.MoveFile ""+strHomedrive+"\Programme\Lotus\Notes\notes.ini" , ""+strHomedrive+"\Programme\Lotus\Notes\notes.ini.old"  
	Else
		call benden()
	End If 
end sub

'============================================================================================  
' Sub Exit  
'============================================================================================  

Sub benden()

end sub