PathExists%
Determine if a directory exists. It is a variation of the Planet-Source-Code function I borrowed called 'FileExists that always works'.
AI
Ringkasan AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kode Sumber
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
Komentar Asli (3)
Dipulihkan dari Wayback Machine