DirExists

Sprache: English
Programmiersprache: Visual Basic
Veröffentlicht von: slate2001 [nicht registriert]
Letzte Änderung: 15.05.2006
Aufrufe: 1457

Lizenz: GNU General Public License

Beschreibung

Check if a directory exists and return true/false

Code

Zeilennummern anzeigen

1 Function DirExists (strDir as string) 2 Dim i As Integer 3 On Error Resume Next 4 If Right(strDir, 1) <> "/" Then strDir = strDir + "/" 5 i = Len(Dir$(strDir)) 6 If Err Or i = 0 Then 7 DirExists = False 8 Else 9 DirExists = True 10 End If 11 End Function

Ein Kommentar

Very useful code snippet.

Freitag, 22. August 2008 07:37:27 von ilas

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *