• Home
 · 
• Files/File Controls/Input/Output
 · 
• PathExists

PathExists

Determine if a directory exists. It is a variation of the vbcoders function I borrowed called 'FileExists that always works'.

Inputs
A path name to be checked (as string)

Assumes
Directory length are size 0. But just even though checking to see if the file is zero length works, it isn't good enough. Some files can be 0 length also. Using GetAttr function with the mask vbDirectory ensures that what you're looking at is indeed a directory.

Returns
true if path if valid

API Declarations
API not used

Rate PathExists

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function PathExists(FullPath as string) as Boolean
'based on function borrowed from Planet Source Safe
  Dim blnDirectory As Boolean
  
  On Error Resume Next
  
  If FileLen(FullPath) = 0& Then
    
    If Err = 0 Then
      
      blnDirectory = (GetAttr(FullPath) And vbDirectory)
      
      If blnDirectory Then PathExists = True
    
    End If
  End If
End Function