Программирование
Веб программирование

Как программно отличить папку от файла

 
 

Забудьте про функцию Dir; она ничем Вам не поможет, лично я только шишки набил, когда только-только стал учить бейсик. Если хотите проверить, существует ли папка (или является ли файл папкой), сделайте так:



Option Explicit

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Function DirectoryExists(path As String) As Boolean
  Dim FA As Long
  DirectoryExists = False
  FA = GetFileAttributes(path)
  If FA <> &HFFFFFFFF Then
    DirectoryExists = (FA And vbDirectory) <> 0
  End If
End Function


Есть вопросы? Спроси на нашем форуме!!
Stertor [02.09.2017 23:50]

Если кому-то интересно, я сейчас обитаю здесь:
FreeSoft.do.am - бесплатные программы, исходники, видеоуроки.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.