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, 3358 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...
Mit freundlichen Grüßen
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.
Mit freundlichen Grüßen
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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
Script zum Auflösen einer Ordnerstruktur und zurück gesucht (12)

Frage von websolutions zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...