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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen