Top-Themen

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

Mitglied: bustue

bustue (Level 1) - Jetzt verbinden

02.02.2012, aktualisiert 20:55 Uhr, 3427 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
Batch & Shell
Start MsgBox in User Session
gelöst Frage von UragusBatch & Shell5 Kommentare

Hallo, Ich habe eine BAT Datei die mit Hilfe von VBS eine MsgBox aufruft. Die BAT wird in Session ...

VB for Applications

MsgBox Druckeinrichtung mit VBA abschalten

gelöst Frage von Gimli3311VB for Applications8 Kommentare

Guten Tag Zusammen, durfte gestern ein altes Programm wieder rausholen und testen. Dabei habe ich jetzt folgendes Problem: Das ...

Visual Studio

Visual basic msgbox "Wegklickbar" machen

gelöst Frage von Zerou24Visual Studio4 Kommentare

Hallo! Ich habe ein programm geschrieben, das eine progressbar durchlaufen lässt und bei 100% die msgbox "hallo" ausgibt. Problem ...

VB for Applications

Text mit Msgbox Ausgeben bei verarbeitung

gelöst Frage von VBSnoob123VB for Applications1 Kommentar

Hallo, hat sich erledigt. hab mich entschlossen das Script in Html darzustellen und die anzeige direkt mit in die ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 19 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 21 StundenAdministrator.de Feedback16 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...