Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 3390 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
Datenbanken
gelöst Access 2010 Insert Into bei Fehler Msgbox (2)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Batch & Shell
gelöst Script in Powershell (27)

Frage von Everest zum Thema Batch & Shell ...

Windows Server
Login Script verzögert ausführen (6)

Frage von Intruder0001 zum Thema Windows Server ...

Windows Server
gelöst Besitzer über ICALCS-Script setzen (7)

Frage von Winfried-HH zum Thema Windows Server ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(6)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

Monitoring
Netzwerk-Monitoring Software (16)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Windows 10 Ordnerfreigabe (15)

Frage von Xaero1982 zum Thema Windows 10 ...