Как проверить существует ли файл // папка - VB

Формулировка задачи:

Как проверить существует ли файл // папка

Раньше я использовал библиотеку Scripting и классы FileSystemObject (FSO) и Dictionary (Dic) так вот, можно обойтись без них )

 
Public Function FileExists(ByVal PathName$) As Boolean
    'Возврат утверждения наличия файла
    On Error Resume Next
    FileExists = GetAttr(PathName) And Err = 0
End Function
 
Public Function FolderExists(ByVal PathName$) As Boolean
    'Возврат утверждения наличия папки
    On Error Resume Next
    FolderExists = GetAttr(PathName) And Err = 0
End Function

Проверить можно так:

 Private Sub Form_Load()
    Dim s$
    s = Environ("homepath")
    MsgBox FolderExists(s)
    End
End Sub

Решение задачи: «Как проверить существует ли файл // папка»

textual
                            Листинг программы 
                        
                            If GetAttr("D:\Temp") = vbDirectory Then
* * * * ' Папка существует