4
WSH MsGBox Script
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
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:
'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" Kann mir jemand helfen, blackout...
MfG
bustue
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Kommentar vom Moderator Biber am 02.02.2012 um 20:55:22 Uhr
Codeformatiert.
Ich bin absoluter Leie auf dem Gebiet des WSH
Ach ja, ist doch immer dieselbe Laier hier...Content-ID: 179967
Url: https://administrator.de/forum/wsh-msgbox-script-179967.html
Ausgedruckt am: 14.04.2025 um 14:04 Uhr
4 Kommentare
Neuester Kommentar
Hallo bustue und willkommen im Forum!
Grüße
bastla
MsgBox() ist ja auch als Funktion verwendbar und liefert dann einen Rückgabewert, den Du mit den Konstanten vbOK, vbCancel etc (siehe zB hier) vergleichen kannst ...Grüße
bastla
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
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:
R = MsgBox("Datei versenden?", VbQuestion+vbYesNo, "Prüfung")
If R = vbNo Then ...bastla
Hallo bastla,
recht vielen Dank für Deinen Hinweis funktioniert jetzt.
Grüße bustue
recht vielen Dank für Deinen Hinweis funktioniert jetzt.
Grüße bustue
