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

 
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

Public Function FileExists(FileName$) As Boolean
    Dim n&
    On Error Resume Next
    n = GetAttr(FileName)
    FileExists = (n And vbDirectory) = 0 And n
End Function
 
Public Function FolderExists(FolderName$) As Boolean
    Dim n&
    On Error Resume Next
    n = GetAttr(FolderName)
    FolderExists = n And vbDirectory
End Function

    ' Ïðîâåðêà ñóùåñòâîâàíèÿ ïàïêè
    If Len(Dir("D:\Temp", vbDirectory)) Then
        If GetAttr("D:\Temp") = vbDirectory Then
        ' Ïàïêà ñóùåñòâóåò
        Else
        ' Ïàïêè íå ñóùåñòâóåò
        End If
    Else
        ' Ïàïêè íå ñóùåñòâóåò
    End If

If Len(Dir("D:\Temp", 63)) Then
  If GetAttr("D:\Temp") And vbDirectory Then
  ' Папка существует
  ElseIf (GetAttr("D:\Temp") And vbDirectory) = 0 Then
  ' Файл существует
  End If
Else
    ' Имя не занято
End If

Option Explicit
 
Private Const MAX_PATH = 260
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    lpszFileName(MAX_PATH) As Integer
    lpszAlternate(14) As Integer
End Type
 
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80
Private Const INVALID_HANDLE_VALUE As Long = -1
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileW" (ByVal lpFileName As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileW" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long
 
 
Public Function DirW(Optional ByVal Path As String, Optional Flags As VbFileAttribute = vbNormal) As String
    Dim fd As WIN32_FIND_DATA, lpStr As Long, lRet As Long, l As Long
    Static hFind As Long, lFlags As VbFileAttribute
    
    If hFind <> 0 And Len(Path) = 0 Then
        If FindNextFile(hFind, fd) = 0 Then FindClose hFind: hFind = 0: Exit Function
    Else
        If hFind Then FindClose hFind: hFind = 0
        Path = Trim(Path)
        lFlags = Flags
        lpStr = StrPtr(Path)
        Select Case Right$(Path, 1)
        Case "\", ":", "/"
            Path = Path & "*.*"
        End Select
        hFind = FindFirstFile(StrPtr(Path), fd)
        If hFind = INVALID_HANDLE_VALUE Then hFind = 0: Err.Raise 52: Exit Function
    End If
 
    l = ((fd.dwFileAttributes = FILE_ATTRIBUTE_NORMAL) + 1) * fd.dwFileAttributes
    l = l And (Not lFlags)
    l = l And &H16&
    
    Do While l
        If FindNextFile(hFind, fd) = 0 Then FindClose hFind: hFind = 0: Exit Function
        l = ((fd.dwFileAttributes = FILE_ATTRIBUTE_NORMAL) + 1) * fd.dwFileAttributes
        l = l And (Not lFlags)
        l = l And &H16&
    Loop
    
    lpStr = VarPtr(fd.dwReserved1) + 4
    l = lstrlen(lpStr)
    DirW = String$(l, vbNullChar)
    lRet = StrPtr(DirW)
    lstrcpy lRet, lpStr
End Function