Check if an Diretory exists

And of course, there is always the API, which I think (though I'm not on my Win2K machine to make sure) can do the search without error. Unfortunately, it false behind nishantp's example in terms of simplity.

VB Code:

'===============
'In a Module
'===============
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
 
 
 
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * 260
  cAlternate As String * 14
End Type
 
Private Declare Function FindFirstFile Lib "kernel32.dll" _
                Alias "FindFirstFileA" (ByVal lpFileName As String, _
                lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32.dll" _
                (ByVal hFindFile As Long) As Long
                
Public Function DirExists(ByVal str_Dir As String) As Boolean
Dim lng_handle As Long
Dim typ_fileinfo As WIN32_FIND_DATA
 
'============================================
'In Win95/98/ME, you cannot have an ending
'backslash on a directory, otherwise it
'returns false.  I would image its the same
'on WinNT/Win2K
'============================================
If Trim$(Right$(str_Dir, 1)) = "\" Then
    str_Dir = Left$(str_Dir, Len(str_Dir) - 1)
End If
 
lng_handle = FindFirstFile(str_Dir, typ_fileinfo)
If lng_handle = -1 Then
    DirExists = False
    FindClose lng_handle
    Exit Function
Else
    If typ_fileinfo.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY Then
        DirExists = True
    Else
        DirExists = False
    End If
End If
FindClose lng_handle
End Function

Usage:

VB Code:

Private Sub Command1_Click()
If DirExists("c:\windows") Then: MsgBox "Windows Directory Exists"
If DirExists("c:\program files\marcedit\") Then: MsgBox "MarcEdit directory Exists"
If DirExists("c:\windows\desktop\count.vbs") = False Then: MsgBox "This is a file, not a directory"
End Sub

Quote:

---

Originally posted by ExcalibursZone
I believe nishantp has done it well. It works. It's small, and it uses intrinsic methods in VB. Mine was only 1 line long, though if you count the Dim of the FSO it's 2. Though nobody seems to like the simplicity of it :rolleyes: Oh, well :D I say Kudos to nishantp (rehash, yes, but a double kudo thread weeheehee)

---

With nishantp's code, you only add two lines of code (Not including the Function and End Function lines) and you remove the extra dependancy that the FSO brings on. Works for me!

Quote:

---

Originally posted by reeset
And of course, there is always the API, which I think (though I'm not on my Win2K machine to make sure) can do the search without error. Unfortunately, it false behind nishantp's example in terms of simplity.

---

Wow. It falls way behind.. I tested it out on my computer (Win2K) and it works flawlessly. This is good for when you want to find out if a directory exists while you're in a loop using the Dir() function to get all the files (or subdirectories, or both) in a directory. Anyone who's ever tried it knows exactly what I'm talking about :)