Pfad vorhanden

Forumthread: Pfad vorhanden

Pfad vorhanden

17.09.2007 23:08:00

Swen

Hallo an alle,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Pfad vorhanden

17.09.2007 23:12:16

Hajo_Zi
AW: Pfad vorhanden

17.09.2007 23:31:58

Swen

AW: Pfad vorhanden

17.09.2007 23:12:16

Hajo_Zi

Hallo 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

AW: Pfad vorhanden

17.09.2007 23:31:58

Swen

das funtzt super, danke!

Forumthread: Pfad vorhanden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread