VBScript Fehlermeldung mit der Methode GetExtensionName

    Option Explicit
Const forReading = 1
Dim fso, file, column
Dim textline 'TextZeile  
Dim inputDir, targetTypeCsv, targetTypePdf, filenamePdf
Dim datumAb, filenameAusCsv, filePdf
Dim folder, folders, ZielPfad, archiveDir, filePfad

Set fso = CreateObject("Scripting.FileSystemObject")  
inputDir = "C:\Temp\Test\"  
archiveDir = "E:\Load\ArchivFile\"  

targetTypeCsv = "csv"  
targetTypePdf = "pdf"  

For Each file In fso.GetFolder(inputDir).Files 'alle Dateien des inputDirs durchgehen  
    
    '1. CVS Dateien nach eineinder öffnen und 'Datum und Dateiname in einer Array auslesen  
    If LCase(fso.GetExtensionName(file.Name)) = LCase(targetTypeCsv) Then 'Test Datei-Typ  

        Set file = fso.OpenTextFile(file, forReading, False)
        While Not file.AtEndOfStream
            textline = file.Readline()
            column = Split(textline, "|")  
            
            datumAb = column(43)
            filenameAusCsv = column(44)
        
    Wend
file.Close 'Datei Schliessen  

    End If
    
    '2. Alle pdf Dateien in Odner durchgehen und prüfen, ob eine die gleiche Dateiname wie die "gelesene Dateiname" hat  
    For Each filePdf In fso.GetFolder(inputDir).Files
        If LCase(fso.GetExtensionName(filePdf.Name)) = LCase(targetTypePdf) Then
            filenamePdf = Trim(filePdf.Name)
           
            If filenameAusCsv = Trim(filenamePdf) Then 'Hier bekomme ich die Meldung, dass beiden Dateiname nicht sind und das stimmt nicht  
                '3 Wenn vorhanden, dann Ordner aus Datum bauen und die gefundene Datei umbenenen und reinspeichern  
                
                    folders = Array(Left(datumAb, 5), Mid(datumAb, 5, 2), Right(datumAb, 2)) 'Folders = Array(JJJJ, MM, TT)  
                    '----------------Ausgabe am Bildschirm ------------------  
                   MsgBox "datumAb: " & datumAb          'datumAb = 20110319  
                   MsgBox "Jahr: " & Left(datumAb, 5)    'Left(datumAb, 5) --> ergibt 201 statt 2011  
                   MsgBox "Monat: " & Mid(datumAb, 5, 2) 'Mid(datumAb, 5, 2) --> ergibt 10 statt 03  
                   MsgBox "Tag: " & Right(datumAb, 2)    'Right(datumAb, 2) --> ergibt 4 statt 15  
                   '-----------------------------------------------------------  
                    
                Else: MsgBox "Dateiname sind: " & "nicht gleich"  
               
                
                'ZielPfad = ZielOrdner (für jede Datei erneut den ZielOrdner (Start-Ordner) vorgeben)  
                ZielPfad = archiveDir
                
                'Odner erstellen  
                For Each folder In folders
                    ZielPfad = ZielPfad & "\" & folder 'zielPfad um jeweiligen Teilpfad verlängern  
                    If Not fso.folderExists(ZielPfad) Then fso.CreateFolder (ZielPfad) 'Fhlermeldung  'code: 800A0034 --> Bad file name or number  
                Next
                
                'Dateien verschieben  
                If Not fso.FileExists(ZielPfad & "\" & filePdf.Name) Then 'gleichnamige Datei bereits vorhanden?  
                    filePdf.Move ZielPfad & "\"  'Zielangabe mit abschließendem "\" = Ordner  
                End If
                
            End If    'filenameAusCsv = filenamePdf  
                
        End If
    Next '2  
    
Next '1  

Option Explicit
Const forReading = 1
Dim fso, file, column
Dim textline 'TextZeile  
Dim inputDir, targetTypeCsv, targetTypePdf, filenamePdf
Dim datumAb, filenameAusCsv, filePdf
Dim folder, folders, ZielPfad, archiveDir, filePfad, rows

Set fso=CreateObject("Scripting.FileSystemObject")  
inputDir = "C:\Temp\Test\"  
archiveDir	=	"E:\\Archiv\ArchivDateien\"				  


targetTypeCsv = "csv"  
targetTypePdf = "pdf"  

For Each file In fso.GetFolder(inputDir).Files 'alle Dateien des inputDirs durchgehen  
	
	'1. CVS Dateien nach eineinder öffnen und 'Datum und Dateiname in einer Array auslesen  
	If LCase(fso.GetExtensionName(file.Name)) = LCase(targetTypeCsv) Then 'Test Datei-Typ  

		Set file = fso.OpenTextFile(file, forReading, False)
		
		Do While not file.AtEndOfStream 'while not file.AtEndOfStream  
			textline=file.Readline()
			column=Split(textline,"|")  
			
			'--------------------Werte speichern-------------------------  
			datumAb 		= column(43) 
			filenameAusCsv = column(44) 
		
	'*** 2.   Dateiname.pdf  = "gelesene Dateiname" ?****************  
		For Each filePdf In fso.GetFolder(inputDir).Files 'alle Dateien des inputDirs durchgehen  
	
			If LCase(fso.GetExtensionName(filePdf.Name)) = LCase(targetTypePdf) Then 
				
				filenamePdf = fso.GetBaseName(filePdf.Name) 'z.B. Meine_Datei_20110310.pdf, dann filenamePdf = Meine_Datei_20110310  
				Folders = Array(Mid(datumAb, 2,4), Mid(datumAb, 6, 2), Mid(datumAb, 8,2)) 'Folders = Array(JJJJ, MM, TT) 'datumAb = "20110315"  
				
				if Mid(filenameAusCsv, 2,18) = filenamePdf Then ' filename aus Csv-Datei = Pdf filename ?  
					
					'3a. ZielPfad = ZielOrdner (für jede Datei erneut den ZielOrdner (Start-Ordner) vorgeben)  
					zielPfad = archiveDir
					
					'3b. Wenn vorhanden, dann Ordner aus datumAb erstellen  
					For Each folder In  folders
						zielPfad = zielPfad & "\" & folder 'zielPfad um jeweiligen Teilpfad verlängern   
						If Not fso.folderExists(zielPfad) Then fso.CreateFolder(zielPfad) 'und bei Bedarf erstellen  
					Next '3b  
					
				Else
				'----------------Ausgabe am Bildschirm ------------------  
				'wscript.echo "nicht gleich: " & "Nein"  
				'----------------------------------- ------------------  
					
				'3c Test FileExists(ZielPfad & ...), Datei.Move --> Datei Verschieben  
					If Not fso.FileExists(ZielPfad & "\" & filePdf.Name) Then 'gleichnamige Datei bereits vorhanden? 					  
						filePdf.Name.Move  ZielPfad & "\" 'Zielangabe mit abschließendem "\" = Ordner  
					End If '3c  
					
				End if 'filename aus Csv-Datei = Pdf filename ?				  
			End if ' LCase...  
		Next 'Each filePdf  
	'****2 Ende**********************************************************************************************************************************		  
						
	loop'wend		  
file.Close 
	End If 'Test Datei-Typ		  
Next '1 For