18
Октябрь
2008
Проверить существует ли файл
Вы хотите проверить, существует ли файл на диске или нет?
Option Explicit
Dim Path As String
Private Sub Form_Load()
Path = Dir(App.Path & "\Project1.vbp")
If Path = vbNullString Then
Label1 = "А файла то нету!"
Else
Label1 = "Все в порядке, файл на месте"
End If
End Sub