PathExists%
Determine if a directory exists. It is a variation of the Planet-Source-Code function I borrowed called 'FileExists that always works'.
AI
KI-Zusammenfassung: 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.
Quellcode
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
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine