Hallo und guten Tag
Ich versuche verzweifelt einen Ordnerpfad über eine Variable und nicht über "feste" Eingabe zu ermitteln
Damit versuche ich es :
so funktioniert es
Wenn ich aber die drei auskommentierten Dim Zeilen "scharf" mache und dafür die anderen drei auskommentiere kommt immer die Messagebox Ordner nicht vorhanden
Was mache ich falsch
trebron57
Ich versuche verzweifelt einen Ordnerpfad über eine Variable und nicht über "feste" Eingabe zu ermitteln
Damit versuche ich es :
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim var1 As String
- Dim var2 As String
- Dim var3 As String
- Dim var4 As String
- Dim var5 As String
- ' Dim delPfad As String = LigaFilterBS_TypRow.Pfad
- 'Dim st() As String = delpfad.Split(CChar("\"))
- Dim st() As String = "H:\Bundesliga\Saison2015_2016\Freiburg".Split(CChar("\"))
- var1 = st(0) ' das Laufwerk
- var2 = st(1) ' erster Ordner
- var3 = st(2) ' zweiter Ordner
- var4 = st(3) ' dritter Ordner
- var5 = st(0) & " \ " & st(1) & " \ " & st(2) & " \ " & st(3)
- MessageBox.Show("Laufwerk = " & var1 & vbCrLf & "erster Ordner = " & var2 & vbCrLf & "zweiter Ordner =" & var3 & vbCrLf & "dritter Ordner = " & var4 & vbCrLf & "Ziel = " & var5)
- ' Dim di As DirectoryInfo = New DirectoryInfo(var5)
- Dim di As DirectoryInfo = New DirectoryInfo("H:\Bundesliga\Saison2015_2016\Freiburg")
- If di.Exists Then
- MessageBox.Show(var5 & " Ordner vorhanden")
- Else
- MessageBox.Show("Ordner nicht vorhanden")
- End If
- MessageBox.Show(var5)
- ' di.Delete(True)
- End Sub
so funktioniert es
Wenn ich aber die drei auskommentierten Dim Zeilen "scharf" mache und dafür die anderen drei auskommentiere kommt immer die Messagebox Ordner nicht vorhanden
Was mache ich falsch
trebron57