MyTetra Share
Делитесь знаниями!
Существует ли файл-папка
Время создания: 16.03.2019 23:43
Текстовые метки: VBA, FSO
Раздел: !Закладки - VBA - FSO
Запись: xintrea/mytetra_db_adgaver_new/master/base/15174061074vrrjy3g33/text.html на raw.githubusercontent.com

Существует ли файл?

Несколько полезных функций для проверки существования файла или папки.

Определение существования файла

Function FileExists(fname) As Boolean

 

   On Error Resume Next

   FileExists = Dir(fname) <> vbNullString

   If Err.Number <> 0 Then FileExists = False

   On Error GoTo 0

 

End Function


Существует ли папка?

Public Function ExistDir(ByVal dirName As String) As Boolean

 

    ExistDir = False 'Считаем, что пока что не существует

    On Error GoTo f1 'В случае ошибки покидаем функцию

 

    'Меньше двух символов в названии папки быть не может!   

    If Len(dirName) < 2 Then GoTo f1

 

    'Последний знак \ или / нам не нужен

    If Right(dirName, 1) = "\" Or Right(dirName, 1) = "/" Then

        dirName = Left(dirName, Len(dirName) - 1)

    End If

 

    'Собственно, ответ на интересующий вопрос

    ExistDir = (Dir(dirName, vbDirectory) <> "")

 

    'Покидаем функцию без ошибок

f1:

    On Error GoTo 0

 

End Function



Определение существавания пути

Function PathExists(pname) As Boolean

 

  On Error Resume Next

  PathExists = GetAttr(pname) And vbDirectory = vbDirectory

 

End Function

А если вопрос о существовании объектов файловой системы решён, то с помощью этого макроса можно по заданному шаблону получить файлы из папки.

Добавить комментарий

Для отправки комментария вы должны авторизоваться.

 

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования