Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
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...
GELÖST

WSH MsGBox Script

Frage Entwicklung

Mitglied: bustue

bustue (Level 1) - Jetzt verbinden

02.02.2012, aktualisiert 20:55 Uhr, 3367 Aufrufe, 4 Kommentare

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:
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
Mitglied: bastla
02.02.2012 um 20:41 Uhr
Hallo bustue und willkommen im Forum!

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
Bitte warten ..
Mitglied: bustue
02.02.2012 um 21:13 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
Bitte warten ..
Mitglied: bastla
02.02.2012 um 21:22 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:
01.
R = MsgBox("Datei versenden?", VbQuestion+vbYesNo, "Prüfung") 
02.
If R = vbNo Then ...
Grüße
bastla
Bitte warten ..
Mitglied: bustue
03.02.2012 um 07:40 Uhr
Hallo bastla,
recht vielen Dank für Deinen Hinweis funktioniert jetzt.
Grüße bustue
Bitte warten ..
Ähnliche Inhalte
Java
gelöst Net user per script aus txt oder csv für FTP (9)

Frage von OlliPWS zum Thema Java ...

Windows Systemdateien
Windows 7 und 10 herunterfahren Knopf mit Script belegen (21)

Frage von c-o-o-p-e-r92 zum Thema Windows Systemdateien ...

Backup
gelöst Backup-Script erweitern mit automatischer bereinigung (6)

Frage von DarkHercules zum Thema Backup ...

Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (15)

Frage von Static zum Thema CMS ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...

RedHat, CentOS, Fedora
Fedora, RedHat, Centos: DNS-Search Domain setzen (13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...