Fehlermeldung "Ungültiges Zeichen im Dateipfad"

Benedict99 · 31. Mai 2013, 08:41

Ich habe ein Programm mit Visual Baic 2010 geschrieben , das mir Msgboxen erstellt und als vbs-Datei speichert.
An sich funktioniert der Code , aber wenn ich es öffnen will, wird immer die Fehlermeldung angezeigt:
-Skript: Dateipfad
-Zeile: 1
-Fehler: Ungültiges Zeichen
-Code: 800A0408
-Quelle: Kompilierungsfehler in Microsoft VBScript

Edit by Manschula: Thema verschoben, Titel und Präfix angepasst!

BjöNi · 31. Mai 2013, 09:09

Wie wär's mit Code?

Meine Glaskugel ist leider runtergefallen.

//EDIT: Ich glaube, die Glaskugel funktioniert wieder. Speichere das mal als EXE ab, wenn du es tatsächlich mit VB 2010 erstellt hast. Eine VBS-Datei besteht aus reinem Text (Skriptsprache).

fichz · 31. Mai 2013, 09:10

Willkommen im Forum!
Es würden sich die Leute die dir helfen wollen vielleicht ein wenig leichter tun, wenn du ein kleines nebensächliches Detail zu Tage bringst.
Nämlich den Code dieses VBS-Scripts.

lg

bastimw · 31. Mai 2013, 09:11

meine Kristallkugel sagt schlechtes Wetter für den 23.08. im Jahr 2155 voraus

- ich werde sie jetzt weiter nach deinem Problem befragen

Schamash · 31. Mai 2013, 09:11

Spontan würde ich sagen in dem Skript: Dateipfad ist ein ungültiges Zeichen in Zeile 1.

Für mehr informationen braucht man Code.

bastimw · 31. Mai 2013, 09:16

bzw. Google spuckt aus, dass deine Konvertierung falsch ist:

Open the .vbs in notepad (Editor)
Go to file and "save as"
Right under the file name box, you will see a drop down menu for encoding. Chose ANSI.

Benedict99 · 31. Mai 2013, 19:50

Hier der Code:

Spoiler anzeigen

Visual Basic-Quellcode

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
FolderBrowserDialog1.ShowDialog()
Ordner.Text = FolderBrowserDialog1.SelectedPath
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "Normal" Then
Label5.Text = "0"
If ComboBox2.Text = "Wiederholen|Ignorieren|Beenden" Then
Label6.Text = "2"
End If
If ComboBox2.Text = "OK" Then
Label6.Text = " + 0"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 4"
End If
If ComboBox2.Text = "Ja|Nein|Abbrechen" Then
Label6.Text = " + 3"
End If
If ComboBox2.Text = "Wiederholen|Abbrechen" Then
Label6.Text = " + 5"
End If
If ComboBox2.Text = "Abbrechen|OK" Then
Label6.Text = " + 1"
End If
If ComboBox3.Text = "Hervorgehobener Button:1" Then
Label7.Text = " + VBDefaultButton1"
End If
If ComboBox3.Text = "Hervorgehobener Button:12Then" Then
Label7.Text = " + VBDefaultButton2"
End If
If ComboBox3.Text = "Hervorgehobener Button:3" Then
Label7.Text = " + VBDefaultButton3"
End If
If ComboBox3.Text = "Kein Hervorgehobener Button" Then
Label7.Text = ""
End If
Else
If ComboBox2.Text = "Wiederholen|Ignorieren|Beenden" Then
Label6.Text = " + 2"
End If
If ComboBox2.Text = "OK" Then
Label6.Text = " + 0"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 4"
End If
If ComboBox2.Text = "Ja|Nein|Abbrechen" Then
Label6.Text = " + 3"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 5"
End If
If ComboBox2.Text = "OK|Abbrechen" Then
Label6.Text = " + 1"
End If
If ComboBox3.Text = "Hervorgehobener Button:1" Then
Label7.Text = " + VBDefaultButton1"
End If
If ComboBox3.Text = "Hervorgehobener Button:12Then" Then
Label7.Text = " + VBDefaultButton2"
End If
If ComboBox3.Text = "Hervorgehobener Button:3" Then
Label7.Text = " + VBDefaultButton3"
End If
If ComboBox3.Text = "Kein Hervorgehobener Button" Then
Label7.Text = ""
End If
End If
If ComboBox1.Text = "Information" Then
Label5.Text = "64"
End If
If ComboBox1.Text = "Wichtige Meldung" Then
Label5.Text = "16"
End If
If ComboBox1.Text = "Warnung" Then
Label5.Text = "48"
End If
If ComboBox1.Text = "Frage" Then
Label5.Text = "32"
End If
Dim Defaultbutton As String = Label7.Text
Dim Buttons As String = Label6.Text
Dim MSGStyle As String = Label5.Text
Dim fertigtext As String = "X = MsgBox(" + Chr(34) + RichTextBox1.Text + Chr(34) + "," + Label5.Text + Label6.Text + Label7.Text + "," + Chr(34) + TextBox1.Text + Chr(34) + ")"
Dim Vorschau As String = Chr(34) + RichTextBox1.Text + Chr(34) + "," + Label5.Text + Label6.Text + Label7.Text + "," + Chr(34) + TextBox1.Text + Chr(34)
MsgBox(fertigtext, , "Code ist ferig")
Clipboard.SetText(fertigtext)
My.Computer.FileSystem.WriteAllText(Ordner.Text + "\" + TextBox2.Text + ".vbs", fertigtext, False)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = "Normal"
ComboBox2.Text = "OK"
ComboBox3.Text = "Kein Hervorgehobener Button"
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NeuToolStripMenuItem.Click
TextBox1.Text = ""
TextBox2.Text = ""
RichTextBox1.Text = ""
ComboBox1.Text = "Normal"
ComboBox2.Text = "OK"
ComboBox3.Text = "Kein Hervorgehobener Button"
End Sub
Private Sub HilfeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HilfeToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
If ComboBox1.Text = "Normal" Then
Label5.Text = "0"
If ComboBox2.Text = "Wiederholen|Ignorieren|Beenden" Then
Label6.Text = "2"
End If
If ComboBox2.Text = "OK" Then
Label6.Text = " + 0"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 4"
End If
If ComboBox2.Text = "Ja|Nein|Abbrechen" Then
Label6.Text = " + 3"
End If
If ComboBox2.Text = "Wiederholen|Abbrechen" Then
Label6.Text = " + 5"
End If
If ComboBox2.Text = "Abbrechen|OK" Then
Label6.Text = " + 1"
End If
If ComboBox3.Text = "Hervorgehobener Button:1" Then
Label7.Text = " + VBDefaultButton1"
End If
If ComboBox3.Text = "Hervorgehobener Button:12Then" Then
Label7.Text = " + VBDefaultButton2"
End If
If ComboBox3.Text = "Hervorgehobener Button:3" Then
Label7.Text = " + VBDefaultButton3"
End If
If ComboBox3.Text = "Kein Hervorgehobener Button" Then
Label7.Text = ""
End If
Else
If ComboBox2.Text = "Wiederholen|Ignorieren|Beenden" Then
Label6.Text = " + 2"
End If
If ComboBox2.Text = "OK" Then
Label6.Text = " + 0"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 4"
End If
If ComboBox2.Text = "Ja|Nein|Abbrechen" Then
Label6.Text = " + 3"
End If
If ComboBox2.Text = "Ja|Nein" Then
Label6.Text = " + 5"
End If
If ComboBox2.Text = "OK|Abbrechen" Then
Label6.Text = " + 1"
End If
If ComboBox3.Text = "Hervorgehobener Button:1" Then
Label7.Text = " + VBDefaultButton1"
End If
If ComboBox3.Text = "Hervorgehobener Button:12Then" Then
Label7.Text = " + VBDefaultButton2"
End If
If ComboBox3.Text = "Hervorgehobener Button:3" Then
Label7.Text = " + VBDefaultButton3"
End If
If ComboBox3.Text = "Kein Hervorgehobener Button" Then
Label7.Text = ""
End If
End If
If ComboBox1.Text = "Information" Then
Label5.Text = "64"
End If
If ComboBox1.Text = "Wichtige Meldung" Then
Label5.Text = "16"
End If
If ComboBox1.Text = "Warnung" Then
Label5.Text = "48"
End If
If ComboBox1.Text = "Frage" Then
Label5.Text = "32"
End If
Dim Defaultbutton As String = Label7.Text
Dim Buttons As String = Label6.Text
Dim MSGStyle As String = Label5.Text
Dim fertigtext As String = "X = MsgBox(" + Chr(34) + RichTextBox1.Text + Chr(34) + "," + Label5.Text + Label6.Text + Label7.Text + "," + Chr(34) + TextBox1.Text + Chr(34) + ")"
MsgBox(fertigtext, , "Code ist ferig")
Clipboard.SetText(fertigtext)
My.Computer.FileSystem.WriteAllText(Ordner.Text + "\" + TextBox2.Text + ".vbs", fertigtext, False)
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Me.Close()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs)
MyBase.WindowState = FormWindowState.Minimized
End Sub

Danke bastimw
Jetzt funktioniert es

felipe12305 · 31. Mai 2013, 20:26

Willkommen im Forum :thumbup:

Aber ein paar Tipps: nutze Select Case!(googlen hilft) und bennenne die Controls richtig, NICHT Label1 usw. für Username-Textbox als Bsp.: txt_Username

BjöNi · 31. Mai 2013, 21:56

-- erledigt --

Artentus · 31. Mai 2013, 22:00

Also zu den Zeilen 7-70/113-176: hast du schon mal in Erwägung gezogen, Databinding und/oder Listen für sowas zu verwenden? Die ganzen Abfragen sind ja grauenhaft.

Fehlermeldung "Ungültiges Zeichen im Dateipfad"

Fehlermeldung "Ungültiges Zeichen im Dateipfad"

Code

Visual Basic-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben