dim druck
dim datei
set shell = CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
druck="c:\DRUCK\"
 
Set direc = fso.getfolder(druck) 
For Each Datei In direc.Files
	if RegExpTest(Datei, ".xls") then
		shell.run "C:\EXCEL.exe.lnk "+ Datei, 1
		WScript.Sleep 5000
		shell.AppActivate "Microsoft Excel"
		WScript.Sleep 100
		shell.SendKeys "%D"
		WScript.Sleep 100
		shell.SendKeys "{DOWN}"
		WScript.Sleep 100
		shell.SendKeys "{ENTER}"
		WScript.Sleep 100
		...
	elseif RegExpTest(Datei, ".pdf") then
		shell.run "C:\Acrobat.exe.lnk "+ Datei, 1
		WScript.Sleep 5000
		shell.AppActivate "Acrobat.exe"
		WScript.Sleep 100
		shell.SendKeys "%Z"
		WScript.Sleep 100
		shell.SendKeys "{RIGHT}"
		WScript.Sleep 100
		shell.SendKeys "{DOWN}"
		...
	end if
Next
 
 
 
 
Function RegExpTest(strInput, strPattern)  
    Dim objRegExp : Set objRegExp = New RegExp  
    objRegExp.IgnoreCase = True  
    objRegExp.Global = False  
    objRegExp.Pattern = strPattern  
    RegExpTest = objRegExp.Test(strInput)  
    objRegExp.Pattern = ""  
end function