Dim wshShell
Set WshShell = CreateObject ("WScript.Shell")
 
Dim objFso           : Set objFso           = CreateObject("Scripting.FileSystemObject")
		 
Dim strPattern
Dim i
 

strSourcePath = "C:UsersAhmedDocumentsInput"   'Hier wird gesucht!
strTargetPath = "C:UsersAhmedDocumentsOutput"	 'Hier wird geschrieben
 
var_logfile = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "Serientext.txt"       ' Hier wird die Seriendatei abgelegt.
 
Dim var_datei
Dim var_dateien
Dim var_untere 
 
var_forAppending = 8
 
Set var_fs = CreateObject("Scripting.FileSystemObject")
var_fs.CreateTextFile(var_logfile)
Set var_os = var_fs.GetFile(var_logfile)
Set var_os2 = var_os.OpenAsTextStream(var_forAppending, 0)
 
Set var_fso = CreateObject("Scripting.FileSystemObject")
Set var_ordner = var_fso.GetFolder(strSourcePath)
 
strPattern=Array("doc","xls","rtf")
 
for i = 0 to UBound(strPattern)
	SuchenInFolder var_ordner,strPattern(i)
next
 
var_os2.close
 
wscript.sleep 1000        '1 sec. Pause
 
Wshshell.run """File2PDF.exe """ & "/Drucker=FreePDF_Multidoc /Profil=eBook /Overwrite=1 /Filedate=7 /Einzel=[" & var_logfile  & "] /Show=1 /Overwrite=3"
 
'Hilfsfunktion zum Suchen der Datei
Sub SuchenInFolder(var_ordner, strExtension)
 
Set var_dateien = var_ordner.Files
  ' Alle Dateien in diesem Ordner abklappern
  
  For Each var_datei In var_dateien
    If lCase(objFSO.GetExtensionName(var_datei.Name)) = lcase(strExtension) Then
		Result = Replace(var_Datei.path,strSourcePath,strTargetPath,1,1,1)
		var_os2.writeline(var_datei.Path) & ";" & Left(Result,len(Result)-Len(var_datei.Name))
    End If
  Next
 
 
 Set var_untere = var_ordner.SubFolders
      ' Alle Unterordner abklappern, SuchenInFolder rekursiv aufrufen
 
      For Each var_unter In var_untere
		SuchenInFolder var_unter, strExtension
      NEXT
End Sub