Проверка существования файла - VB

Узнай цену своей работы

Формулировка задачи:

Помогите дописать код:
Как дописать код, который указывает что данной программы по указанному адресу нету? Если вдруг я ее перенес в другую папку.

Решение задачи: «Проверка существования файла»

textual
Листинг программы
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
(ByVal pszPath As String) As Long
Private Sub Form_Load()
t = "C:\33\notepad.exe"
If PathFileExists(t) = 1 Then
    If Shell(t) then
        MsgBox ("Программа запущена успешно"), vbInformation
    else
        MsgBox ("Запуск прошел неудачно"), vbExclamation
    End If
Else
    MsgBox ("Программа не обнаружено на месте"), vbExclamation
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.4 из 5
Похожие ответы