Ошибка выполнения «52» Неверное имя файла или номер с функцией Dir $

Мне нужно проверить, существует ли файл chrome.exe, и если да, откройте браузер. Я получаю

Ошибка выполнения «52» Неверное имя файла или номер

На первом If проверить. Почему это?

 Sub openChrome() Dim chromePath32 Dim chromePath64 Dim chromePathUser Dim current_user chromePath32 = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" chromePath64 = """C:\Program Files\Google\Chrome\Application\chrome.exe""" current_user = (Environ$("Username")) chromePathUser = """c:\users\" & current_user & "\AppData\Local\Google\Chrome\Application\Chrome.exe""" If Dir$(chromePath32) <> "" Then '<-----error here Shell (chromePath32 & " -url http:google.co.nz") ElseIf Dir$(chromePath64) <> "" Then Shell (chromePath64 & " -url http:google.co.nz") ElseIf Dir$(chromePathUser) <> "" Then Shell (chromePathUser & " -url http:google.co.nz") Else MsgBox "Chrome installation not found" Exit Sub End If End Sub 

Удалите свои кавычки по каталогам – они не нужны в команде Dir :

 chromePath32 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" chromePath64 = "C:\Program Files\Google\Chrome\Application\chrome.exe" current_user = (Environ$("Username")) chromePathUser = "c:\users\" & current_user & "\AppData\Local\Google\Chrome\Application\Chrome.exe" 

Они могут понадобиться им в команде « Shell , хотя я просто попробовал 32-битную версию и работал без них:

 If Dir$(chromePath32) <> "" Then Shell """" & chromePath32 & """ -url http:google.co.nz" ElseIf Dir$(chromePath64) <> "" Then Shell """" & chromePath64 & """ -url http:google.co.nz" ElseIf Dir$(chromePathUser) <> "" Then Shell """" & chromePathUser & """ -url http:google.co.nz" Else MsgBox "Chrome installation not found" Exit Sub End If 
Давайте будем гением компьютера.