Как проверить существует ли файл // папка - 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
* * * * ' Папка существует

Оцени полезность:

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы