Проверка существования файла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д