Hi,

Hat wer ne Idee wie ich festellen kann in LS das ein Vez. schon exisitiert? Vermute mit curdir$ oder so?

Danke für eure Hilfe!

Function checkDir( path As String ) As String
   
   On Error Resume Next
   
   CheckDir = False
   
   Chdrive Left( path, 1 )
   Chdir path
   
   If Curdir = path Then          
      CheckDir = True
   End If
   
End Function

Sub Click(Source As Button)
   Msgbox checkDir("c:\Winnt\system32\drivörs")
End Sub

Gibt TRUE zurück, wenn Dir existiert andernfalls FALSE

Sollte gehen, ausser man hat es mit einer leeren Partition zu tun, oder einen leeren Netzwerk-Share auf der Basis von Netzsoftware, die die beiden Verzeichnisse "." und ".." nicht mitliefern (zum Bleistift Samba in Abhängigkeit der Konfiguration)

Errorhandling: Klar, logisch, immer  

Wollte nur auf den "Dir" - Befehl aufmerksam machen  

Function checkDir( path As String ) As String
   
   On Error Resume Next
   
   CheckDir = False
   
   Chdrive Left( path, 1 )
   Chdir path
   
   If Curdir = path Then          
      CheckDir = True
   End If
   
End Function

Sub Click(Source As Button)
   Msgbox checkDir("c:\Winnt\system32\drivörs")
End Sub

Gibt TRUE zurück, wenn Dir existiert andernfalls FALSE

Wäre es sinnvoll, am Ende der Funktion das Directory wieder auf den ursprünglichen Pfad zu setzen?

Viele Grüße
Harry