RE: Dir function Jerry Redman 12.Apr.12 01:47 PM a Web browser Domino Designer All ReleasesAll Platforms
Irena, here is a function I picked up form somewhere to check to see if a directory exists. Note that this function is Windows specific.
Usage syntax would be
Dim Directory as String
Directory = "C:\Testdir\"
If ExistFileDirDrive(Directory) = 0 then
Msgbox "Directory doesn't exist"
Else
Msgbox "Directory exists"
End If
Function ExistFileDirDrive(FilePathName As String) As Integer
Module = Getthreadinfo(1)
Dim nTest As String
nTest = Lcase$(FilePathName)
If Len(nTest) = 1 Then
Select Case Left$(nTest, 1)
Case "a" To "z"
nTest = FilePathName & ":\"
End Select
Elseif Len(nTest) = 2 Then
Select Case Left$(nTest, 2)
Case "a:" To "z:"
nTest = FilePathName & "\"
End Select
End If
On Error Resume Next
ExistFileDirDrive = Cint(Getattr(nTest) Or vbNormal Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
Return to top
. . RE: Dir function (Jerry Redman 12.Apr.12) 
Print this page
