Функция Dir выдает ошибку - VB

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

Добрый вечер. Помогите пожалуйста разобратся почему так происходит с функцией Dir. При выполнении данного куска программы появляется ошибка, Run-time error '5' Invalid procedure call or argument и появляется когда я проверяю наличие папки и файла по указаном пути через переменные q_DirMonth q_DirDay q_DirFile q_FileFull когда я их убираю все чудно работает как мне обойти данную проблему???
q_Month=11
q_Day=12
q_File = Dir("d:\Test\*.xls", vbDirectory)
Do While q_File <> ""
if (q_File = "T_ALFA") then
 q_DirMonth = Dir("f:\Test\Log\" & q_Month & "\", vbDirectory)
 q_DirDay = Dir("f:\Test\Log\" & q_Month & "\" & q_Day & "\", vbDirectory)
 q_DirFile = Dir("f:\Test\Log\" & q_Month & "\" & q_Day & "\" & "bufer.txt")
 q_FileFull = Dir("f:\Test\Log\" & q_Month & "\" & q_Day & "\" & "buferFull.txt")
End if
q_File = Dir() 
Loop

Код к задаче: «Функция Dir выдает ошибку - VB»

textual
Option Explicit
 
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
    (ByVal pszPath As String) As Long
 
Private Sub Form_Load()
'1 - существует, 0 - нет
MsgBox PathFileExists("d:\Test\")
End
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ