Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion PfadTesten()
Die Funktion testet ob das mitgegebene Verzeichnis vorhanden ist und gibt True zurück. Ist das Verzeichnis nicht vorhanden wird False zurückgegeben.
Public Function PfadTesten(TestPfad As String) As Boolean

'--------------------------------------------------------
' Die Funktion testet ob das mitgegebene Verzeichnis
' vorhanden ist und gibt True zurück. Ist das Ver-
' zeichnis nicht vorhanden wird False zurückgegeben.
'--------------------------------------------------------

On Error GoTo fehler

If Len(TestPfad) = 3 Then
If Dir(TestPfad) = " " Then
PfadTesten = False
Else
PfadTesten = True
End If
Else
If Dir(TestPfad, vbDirectory) = "" Then
PfadTesten = False
Else
PfadTesten = True
End If
End If

ende:
Exit Function

fehler:
PfadTesten = False
Resume ende

End Function
Funktion PfadTesten()Funktion-PfadTesten()Funktion-PfadTesten()Funktion-PfadTesten()




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de