kann mir einer sagen wie ich mir eine kleine funktion bauen kann die mir sagt ob ein bestimmt Pfad,
z.B. G:\Daten\
oder E:\Daten\Neu\
vorhanden ist?
Gruß
Swen
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\") "" Then
MsgBox "vorhanden"
Else
MkDir "C:\Eigene Dateien\\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub