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

@malder_d · Регистрация: 03.02.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер.
Помогите пожалуйста разобратся почему так происходит с функцией Dir.
При выполнении данного куска программы появляется ошибка,
Run-time error '5'
Invalid procedure call or argument
и появляется когда я проверяю наличие папки и файла по указаном пути через переменные
q_DirMonth
q_DirDay
q_DirFile
q_FileFull
когда я их убираю все чудно работает
как мне обойти данную проблему???

Visual Basic

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

@~~Апострофф~~ · 13.02.2013, 12:25

Сообщение от malder_d

Visual Basic

q_Month=11
q_Day=12
q_File = Dir("d:\Test\*.xls", VBDIRECTORY) 'Вы ищете ПАПКИ с расширением XLS?
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
'И главное! Dir() без параметров продолжает предыдущий поиск 
'и если это (вдруг) был неудачный поиск (вернувший пустую строку),
'то следующая строка кода приведет к упомянутой ошибке -
'"Invalid procedure call or argument"
q_File = Dir() 
Loop

А если короче, то в конструкции

Visual Basic

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()!

Сообщение от malder_d

как мне обойти данную проблему?

Обойтись без вложенных Dir, например как-то так -

Visual Basic

If GetAttr("d:\Test") And vbDirectory = vbDirectory Then
  If Err Then
    MsgBox "Ïàïêà d:\Test íå ñóùåñòâóåò"
    Err.Clear
  Else
    MsgBox "Ïàïêà d:\Test ñóùåñòâóåò"
  End If
Else
  MsgBox "Ôàéë d:\Test ñóùåñòâóåò"
End If

@malder_d · 13.02.2013, 13:59 **[ТС]**

Спасиба большое за совет.

Нашол вот такой варинт, попробую его использовать.

Visual Basic

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

	13.02.2013, 13:59