WSH MsGBox Script

'Prüfung, ob Dokument im Verzeichnis vorhanden  
set fs = CreateObject("Scripting.FileSystemObject")  
if fs.fileExists("C:\GDItoDATEV\Export\EV01") then  
msgbox("Datei verseden?"), VbQuestion+vbOKOnly, "Prüfung"  
else
msgbox("Datei nicht gefunden, bitte überprüfen!"& vbCrLF &"Du darfst die Konvertierung nicht vergessen!"),vbCritical+vbOKOnly, "Prüfung"   

'Soll nur ausgelöst werden wenn der Button Cancel betätigt wird -löst jedoch aus wenn irgendeiner der Button angeklickt wird  

Set WSHShell = WScript.CreateObject("WScript.Shell")   
    WSHShell.Run "c:\GDItoDatev\GDItoDatev.chm"   
WScript.Quit
end if

'Ausführen der Batchdatei mit den eingegebenen Variablen  
set wshshell = CreateObject("WScript.Shell")  
wshshell.Run("%COMSPEC% /C start  Export.cmd ") ,0  

'Information über ausgeführte Aktion  
MsgBox "Die Daten wurden per Mail weitergeleitet! "& vbCrLF & "In Deinem Postfach befindet sich eine Kopie der Daten" &   

vbCrLF & "und ein Protokoll" ,vbInformation, "Versand Ergebnis"