Option Explicit<br><br>Private Const INVALID_HANDLE_VALUE = -1<br>Private Const MAX_PATH = 260<br><br>Private Type FILETIME<br>        dwLowDateTime As Long<br>        dwHighDateTime As Long<br>End Type<br><br>Private Type WIN32_FIND_DATA<br>        dwFileAttributes As Long<br>        ftCreationTime As FILETIME<br>        ftLastAccessTime As FILETIME<br>        ftLastWriteTime As FILETIME<br>        nFileSizeHigh As Long<br>        nFileSizeLow As Long<br>        dwReserved0 As Long<br>        dwReserved1 As Long<br>        cFileName As String * MAX_PATH<br>        cAlternate As String * 14<br>End Type<br><br>Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long<br>Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long<br>Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long<br><br>Private Function есть_в_папке_файлы(Dir As String) As Boolean<br>    Dim fdata As WIN32_FIND_DATA<br>    Dim resval&<br>    Dim hfind&<br>    Dim i\%<br>    <br>    hfind = FindFirstFile(Dir + "\*.*", fdata)<br>    If hfind = INVALID_HANDLE_VALUE Then<br>        есть_в_папке_файлы = False<br>    Else<br>        If Len(Dir) = 2 Then    'корневой каталог<br>            есть_в_папке_файлы = True<br>        Else<br>            'пропускаем папки "." и ".."<br>            For i = 1 To 2<br>                resval = FindNextFile(hfind, fdata)<br>            Next<br>            есть_в_папке_файлы = CBool(resval)<br>        End If<br>    End If<br>    FindClose hfind<br>End Function<br><br>Private Sub Command1_Click()<br>    If есть_в_папке_файлы("c:\мои документы") Then<br>        MsgBox "есть"<br>    Else<br>        MsgBox "нет"<br>    End If<br>End Sub