Überprüfen, ob der angegebene Pfad existiert

[Leonid Pavlov]

Hallo zusammen,

ich arbeite mit den Access-Forms. In einem Textfeld gibt der Benutzer einen Pfad. Wie kann ich überprüfen ,ob der Pfad wirklich existiert?

Gruß

Leonid Pavlov

[Fritz Reimer]

Hallo Leonid!

Über VBA kenne ich keine geeignete Möglichkeit dies schnell und einfach zu bewerkstelligen.

Möglichkeiten wären entweder über API-Aufrufe oder (finde ich besser) über WSH - Windows Scripting Host z.B. so :

Sub LWTesten(Pfad)

<PRE> dim LW

<PRE> Dim FS as Object

<PRE> Set FS =CreateObject("Scripting.FilesystemObject"

<PRE> ' Laufwerk ?

<PRE> LW = FS.GetDriveName(Pfad)

<PRE> If Not FS.DriveExists(LW) Then

<PRE> MsgBox "existiert nicht"

<PRE> Else

<PRE> MsgBox "existiert"

<PRE> End If

<PRE> ' Pfad ??

<PRE> ' evtl. Leerzeichen und \ kontrollieren

<PRE> Pfad = Trim(Pfad)

<PRE> If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"

<PRE> If FS.FolderExists(Pfad) then

<PRE> MsgBox "existiert "

<PRE> Else

<PRE> MsgBox "existiert nicht"

<PRE> End If

<PRE> Set FS =Nothing

End Sub

Unter Extras/ Verweise den Verweis zum Windows Scripting Host nicht vergessen.

Im Netz findest Du sicher mehr und bessere Beispiele zu WSH und Datei/LW-Behandlung.

Mfg

Fritz Reime