Frage ist gelöstWSH MsGBox Script
02.02.2012
20:23:11 Uhr518 Aufrufe
4 Antworten
20:23:11 Uhr
4 Antworten
Noch nicht bewertet
Ich bin absoluter Leie auf dem Gebiet des WSH und müßte folgendes Problem lösen
In einer MsGBox möchte ich, das wenn der Button Cancel angeklickt wird eine Datei aufgerufen wird. Um zu verständlichen was ich meine hier mein Script:
Kann mir jemand helfen, blackout...
MfG
bustue
01.
'Prüfung, ob Dokument im Verzeichnis vorhanden 02.
set fs = CreateObject("Scripting.FileSystemObject") 03.
if fs.fileExists("C:\GDItoDATEV\Export\EV01") then 04.
msgbox("Datei verseden?"), VbQuestion+vbOKOnly, "Prüfung" 05.
else 06.
msgbox("Datei nicht gefunden, bitte überprüfen!"& vbCrLF &"Du darfst die Konvertierung nicht vergessen!"),vbCritical+vbOKOnly, "Prüfung" 07.
08.
'Soll nur ausgelöst werden wenn der Button Cancel betätigt wird -löst jedoch aus wenn irgendeiner der Button angeklickt wird 09.
10.
Set WSHShell = WScript.CreateObject("WScript.Shell") 11.
WSHShell.Run "c:\GDItoDatev\GDItoDatev.chm" 12.
WScript.Quit 13.
end if 14.
15.
'Ausführen der Batchdatei mit den eingegebenen Variablen 16.
set wshshell = CreateObject("WScript.Shell") 17.
wshshell.Run("%COMSPEC% /C start Export.cmd ") ,0 18.
19.
'Information über ausgeführte Aktion 20.
MsgBox "Die Daten wurden per Mail weitergeleitet! "& vbCrLF & "In Deinem Postfach befindet sich eine Kopie der Daten" & 21.
22.
vbCrLF & "und ein Protokoll" ,vbInformation, "Versand Ergebnis"Kann mir jemand helfen, blackout...
MfG
bustue
bustue schreibt am 02.02.2012 um 21:13:34 Uhr
Hallo bastla,
Danke für Deine schnelle Antwort, die Seite habe ich auch schon bemüht, komme jedoch nicht weiter. Wie kann ich die Funktion an dieser Stelle verwenden, meine Faähigkeiten sind äußerst begrenzt.
Wäre nett , wenn Du ein Vorschlag für mich hättest.
MfG
bustue
Danke für Deine schnelle Antwort, die Seite habe ich auch schon bemüht, komme jedoch nicht weiter. Wie kann ich die Funktion an dieser Stelle verwenden, meine Faähigkeiten sind äußerst begrenzt.
Wäre nett , wenn Du ein Vorschlag für mich hättest.
MfG
bustue
bastla schreibt am 02.02.2012 um 21:22:14 Uhr
Hallo bustue!
Es ist ja nicht sonderlich sinnvoll, für eine Frage, die sich durchaus mit "Ja" oder "Nein" beantworten lässt, nicht auch die entsprechenden Schaltflächen anzubieten - daher etwa:
Grüße
bastla
Es ist ja nicht sonderlich sinnvoll, für eine Frage, die sich durchaus mit "Ja" oder "Nein" beantworten lässt, nicht auch die entsprechenden Schaltflächen anzubieten - daher etwa:
01.
R = MsgBox("Datei versenden?", VbQuestion+vbYesNo, "Prüfung") 02.
If R = vbNo Then ...bastla
