Zwei Ordner durchsuchen

set objFS = Wscript.CreateObject("Scripting.FileSystemObject")  
set f1 = objFS.GetFolder("c:\temp\f1")  
set f2 = objFS.GetFolder("c:\temp\f2")  
suchObjekt = "NachdiesemPDFsucheich.pdf"  
if parseFolder(f1) = true or parseFolder(f2) = true then
	wscript.Echo "Found"  
else
	wscript.Echo "Not Found"  
end if

Function parseFolder(fldr)
	dim found
	For each file in fldr.Files
		if file.name = suchObjekt then
			parseFolder = true
			exit function
		end if	
	Next
	
	For Each subFolder in fldr.SubFolders
		if parseFolder(subFolder) = true then
			parseFolder = true
			exit function
		end if
	Next
	
End Function

' F:\schnipsel\parsefolders.vbs  
Dim objFS, f1, f2

set objFS = Wscript.CreateObject("Scripting.FileSystemObject")  
set f1 = objFS.GetFolder("D:\temp")  
set f2 = objFS.GetFolder("f:\schnipsel")  

targetType = "vbs"  
if (parseFolder(f1) or parseFolder(f2) ) then
	wscript.Echo "Found"  
else
	wscript.Echo "Not Found"  
end if

Function  parseFolder(fldr)
	parsefolder = false
	For each file in fldr.Files
		If LCase(objFS.GetExtensionName(file.Name)) = LCase(targetType) Then
			if DateDiff("d",file.DateCreated, Date) = 0 then  
				parseFolder = true
				WScript.echo fldr.name , ":" ,file.name , file.DateCreated  
				'send a message  
				Exit Function
			End if
			
		End if	
	Next
	
	
End Function

>f:\schnipsel\parsefolders.vbs
schnipsel : parsefolders.vbs 12.10.2011 22:20:05
Found

    Dim f1, f2, targetType, fso, filePdf, currentDate

    Set fso     = CreateObject("Scripting.FileSystemObject")  
    f1       = "D:\test1"   
	f2      = "E:\Customer NOV\PdfFile"  
    
	targetType = "pdf"  
	currentDate = Date()
	sucheDateiInOrdner(f1)
	sucheDateiInOrdner(f2)
	


Function sucheDateiInOrdner(ordner)
	For Each filePdf In fso.GetFolder(ordner).Files 		 
			If LCase(fso.GetExtensionName(filePdf.Name)) = LCase(targetType) Then
			
				If ( filePdf.DateCreated < currentDate ) Then					
					WScript.echo filePdf.Name & " " & filePdf.DateCreated  
					listeErstellen 'subaufruf  
				End If		
			End If
		Next
End Function