Messagbox anpassen

Hallo,

vielleicht könntet Ihr mir helfen.
Ich habe Messagebox erstellt, die ein Skript ausführen soll, wenn ich auf "Ja" klicke. Ich habe jedoch Schwierigkeiten,
eine zweite Funktion einzubauen, die wenn ich auf "Nein" klicke, ein Verzeichnis öffnen soll. Habe es mit dem 2. Code probiert,
geht aber nicht

Wer hat da ein Tipp für mich?

Wer hat eine Idee, wie ich die Felder "Nein" in Öffnen umbennen kann?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim ws,Question,PathProgram
Set ws = CreateObject("wscript.shell")  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\"  
Question = Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
If Question = VbYes Then
     ws.run DblQuote(PathProgram)
End If
'***************************************  
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim ws,Question,PathProgram
Set ws = CreateObject("wscript.shell")  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
PathProgram2 = "%userprofile%\Desktop\CSV\Skripte\"  
Question = Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
If Question = VbYes Then
     ws.run DblQuote(PathProgram)
End If
If Question = VbNo Then
     ws.run DblQuote(PathProgram1)
End If
'***************************************  
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************  

Beste Grüße!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 334545

Url: https://administrator.de/forum/messagbox-anpassen-334545.html

Ausgedruckt am: 13.04.2025 um 00:04 Uhr

5 Kommentare

Neuester Kommentar

"PathProgram1" gibbet im zweiten Code nich

und im ersten setzt du zweimal die selbe Variable "PathProgram" einmal mit einer Datei und das andere mal mit einem Pfad.
Also alles Flüchtigkeitsfehler.

Hallo freshman2017

Die Fehlermeldungen sollten bereits ziemlich eindeutig sein. Wenn du Option Explicit definiert hast, kannst du nur Variablen verwenden, die mit Dim deklariert wurden (oder Konstanten). Ebenso macht es wenig Sinn der Variablen PathProgram2 einen Wert zuzuweisen, die du dann gar nicht nutzt (weil du versuchst eine Variable PathProgram1 zu nutzen, die nicht existiert).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit

Dim ws
Set ws = CreateObject("wscript.shell")  

Const PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
Const PathProgram2 = "%userprofile%\Desktop\CSV\Skripte\"  

Select Case Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
  Case vbYes
    ws.run """" & PathProgram & """"  
  Case VbNo
    ws.run """" & PathProgram2 & """"  
End Select