Поиск имени файла с использованием переменной в Excel VBA

Question

У меня есть код, который должен искать имя файла в папке на сервере, и если этот файл существует, пользователю предлагается либо перезаписать файл, либо нет. Однако код всегда запрашивает пользователя независимо от существующего файла или нет.

Я нашел несколько примеров этого сайта, однако они используют статические имена файлов. Я пытаюсь изменить его, чтобы соответствовать моим потребностям, но никуда не денусь.

Код для поиска, если файл существует, так

'checks if file you're saving already exists 
    If FileThere("\\showdog\service\Service_job_PO\" & UserInput) = True Then 
     'do stuff here 

функция для этого кода заключается в следующем:

Function FileThere(filename As String) As Boolean 
If FileThere = (Dir("\\showdog\service\Service_job_PO\" & UserInput) <> "") Then 
FileThere = True 
Else 
FileThere = False 
End If  
End Function 

Answer 1

Я считаю, что это должно быть ниже. Вы хотите проверить, существует ли каталог, связанный с переданным параметром filename.

Function FileThere(filename As String) As Boolean 
If Dir(filename) <> "" Then 
FileThere = True 
Else 
FileThere = False 
End If  
End Function 

Edit:

Я предполагаю, что вы подаете полный путь к файлу в этой строке, в этом случае вы ссылаться на путь к файлу, который передается в функцию FileThere.

If FileThere("\\showdog\service\Service_job_PO\" & UserInput) = True Then 

Answer 2

Вы можете сократить это все вплоть до одного теста, а не удвоения с ОДС:

If Len(Dir("\\showdog\service\Service_job_PO\" & UserInput)) > 0 Then 

В соответствии с другими комментариями выше вашего исходного кода использует UserInput дважды