Hallo,
ich habe folgenden Code:
M:\ ist ein Netzlaufwerk
Public Class OpenPath1
Dim Nummer As String
Dim Nummer3 As String
Dim Pfad As String = "M:\"
Private Sub tbNummer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbNummer.TextChanged
Nummer = tbNummer.Text
Nummer3 = Microsoft.VisualBasic.Left(Nummer, 3)
End Sub
Private Sub buOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buOpen.Click
Dim Check As Integer
Check = Len(Nummer)
If (Check = 7) Then
Process.Start("explorer.exe", Pfad & Nummer3 & "\" & Nummer)
Else
MsgBox("Keine gültige Eingabe!!!")
End If
End Sub
End Class
Wenn ich den gewünschten Text in die Textbox eingebe, das sind bei mir immer Zahlen mit 7 Ziffern, dann öffnet er mir unter Windows 7 immer "C:\Users\XXX\Documents".
Kann ich keine Netzlaufwerke öffnen lassen?
Grüße
*EDIT: FRAG NICHT WARUM DER CODE NICHT KORREKT ANGEZEIGT WIRD, ICH WEIß NICHT!!!*
ich habe folgenden Code:
M:\ ist ein Netzlaufwerk
VB.NET-Quellcode
- Public Class OpenPath1Dim Nummer As String Dim Nummer3 As String Dim Pfad As String = "M:\"Private Sub tbNummer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbNummer.TextChanged Nummer = tbNummer.Text Nummer3 = Microsoft.VisualBasic.Left(Nummer, 3) End Sub
- Private Sub buOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buOpen.Click
- Dim Check As Integer Check = Len(Nummer) If (Check = 7) Then Process.Start("explorer.exe", Pfad & Nummer3 & "\" & Nummer) Else MsgBox("Keine gültige Eingabe!!!") End If
- End SubEnd Class
Public Class OpenPath1
Dim Nummer As String
Dim Nummer3 As String
Dim Pfad As String = "M:\"
Private Sub tbNummer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbNummer.TextChanged
Nummer = tbNummer.Text
Nummer3 = Microsoft.VisualBasic.Left(Nummer, 3)
End Sub
Private Sub buOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buOpen.Click
Dim Check As Integer
Check = Len(Nummer)
If (Check = 7) Then
Process.Start("explorer.exe", Pfad & Nummer3 & "\" & Nummer)
Else
MsgBox("Keine gültige Eingabe!!!")
End If
End Sub
End Class
Wenn ich den gewünschten Text in die Textbox eingebe, das sind bei mir immer Zahlen mit 7 Ziffern, dann öffnet er mir unter Windows 7 immer "C:\Users\XXX\Documents".
Kann ich keine Netzlaufwerke öffnen lassen?
Grüße
*EDIT: FRAG NICHT WARUM DER CODE NICHT KORREKT ANGEZEIGT WIRD, ICH WEIß NICHT!!!*