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

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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
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

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .