PathExists%
Determine if a directory exists. It is a variation of the Planet-Source-Code function I borrowed called 'FileExists that always works'.
AI
Riepilogo 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.
Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine