Как перебрать все папки в текущем каталоге командой Dir

[Dimon111]

Нужно перебрать все папки в текущем каталоге не заходя в подкаталоги.

Делаю так:

Код: Выделить всё

Dim tmp As String
tmp = Dir("d:\*.*")
Do While Len(tmp) > 0
  tmp = Dir()
Okno1.Text = Okno1.Text & tmp
Loop


Окно остается пустым!

[Viper]

Код: Выделить всё

Dim tmp As String
tmp = Dir("d:\", vbDirectory)
Do While Len(tmp) > 0
Okno1.Text = Okno1.Text & tmp
  tmp = Dir()
Loop

[Atoman]

Dir("D:\", vbDirectory)

[Dimon111]

Весьма занятно. Работает, но хитро.

Папки, начинающиеся с цифры она не видит. Впрочем, и так годится, но хотелось бы узнать почему.

И что это за волшебная vbDirectory? Подозреваю, что тоже самое, что и dir /b в bat - файле.

[Dimon111]

Все оказалось просто.

Код: Выделить всё

Dim Tmp As String, I As Integer, Kstr As String
Tmp = Dir("D:\", vbDirectory)
Do While Len(Tmp) > 0
  ReDim Preserve DirArray(I)
  DirArray(I) = Tmp
  I = I + 1
  Okno1.Text = Okno1.Text & Tmp + Chr(13) + Chr(10)
  Tmp = Dir()
Loop


Строку Tmp = Dir() нужно было поместить после запоминания первого элемента. Иначе первый путь (созданный строкой Tmp = Dir("D:\", vbDirectory)) просто не запоминался.

Всем спасибо. Без вашей помощи не разобрался бы.

[Dimon111]

Попутно встал еще один вопрос: Как вместо пути Dir("d:\", vbDirectory) подставить текущий путь?

[alibek]

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

Текущий путь надо запоминать во вспомогательной переменной.

[Dimon111]

Это у меня дальше происходит - фильтрация "." и "..":

Код: Выделить всё

    Kstr = DirArray(I)                     
    Exist = InStr(Kstr, ".")                 
    If Exist = 0 Then Okno1.Text = Okno1.Text + "C:\Progra~1\7-Zip\7zg.exe" + " " + "A" + " " + Kstr + " " + Kstr + "\" + Chr(13) + Chr(10)
    If Exist = 0 Then Print #1, "C:\Progra~1\7-Zip\7zg.exe" + " " + "A" + " " + Kstr + " " + Kstr + "\" + Chr(13) + Chr(10)


Как запомнить текущий путь?

[Proxy]

А что фактически означают "." и ".." в некоторых каталогах?Возвращаются обычно первыми DIR()`ом.

[Хакер]

1) Это не фильтрафия, а проверка, содержит ли имя катола точку. Таким образом любой каталог (например каталог "18.03.2008") ощутит всю прелесть облома, хотя, по идее, не должен.

2) "C:\Progra~1\7-Zip\7zg.exe" + " " + "A" + " " + - это новая разновидность мазохизма?

В таком случае, рекоммендую писать:
"C" + ":" + "\" + "P" + "r" + "o" + "g" + и т.д.

3) Вопрос о текущем путе не ясен.

Proxy
. - означает текущий каталог.
.. - вышестоящий.

c:\windows\..\windows\.\.\.\system32\..\..\.\windows\system32\ - всё равно что c:\windows\system32.

Полезно для указания текущий путей. Допустим, наш exe-шник лежит в папке bin, которая лежит в папке soft, в которой лежит папка data, в которой лежат данные.

Вместо того, чтобы получать CurDir (которая у нас пусть будет = App.Path) (c:\foo\bar\bazz\quux\soft\bin\), отрезать от полученного пути \bin и прибавлять data\ можем просто напистать
Open "..\data\file.dat"

[Dimon111]

Ну конечно правильней было бы все в одни кавычки взять.

Вопрос о пути - программадолжна работать с с того пути, в котором она находится.

[Хакер]

Dimon111

Вопрос о пути - программадолжна работать с с того пути, в котором она находится.

Как понимать работу программы с какого-то пути?

[Dimon111]

Программе необходим список папок того директория, в котором она находится. А он может быть разный.

[Dimon111]

Как все - таки релизовать Dir из текущего катклога, чтобы не указывать конкретного пути?

App.Path, CurDir выдает лишь текущий рабочий каталог (папку в которой назодится программа): Dir(App.Path, vbDirectory).

Спасибо

[alibek]

BasePath = App.Path
If Right$(BasePath,1) <> "\" Then BasePath = BasePath & "\"
...
res = Dir$(BasePath, vbDirectory)
Do Until Len(res) = 0
Debug.Print BasePath & res
res = Dir$
Loop

[Dimon111]

Не ужели проще нельзя? Задача - то вобщем простая. Получить список папок в том же месте где находится программа.

До сих пор делал это в bat - файле: Dir / и >L.txt

Т.е. создавал специально bat - файл с такой командой, запускал его из программы, далее открывал L.txt и анализировал его. Но такая кривизна достала. Хотелось найти более изящное решение.

[Хакер]

Хотелось найти более изящное решение.

И Алибек написал тебе его. Чем ты недоволен?

[Dimon111]

Разобрался. Работает. Просто думал, что наряду с App.Path, CurDir есть еще что - нибудь.

Еще непонятно Dir$(BasePath, vbDirectory) должно по идее выводить только папки, а она выводит еще и файлы.

Спасибо.

[Хакер]

Dimon111
Ты вообще знаешь, какая разница между App.Path и CurDir ?

[HiSER]

А чем не подходит:

Код: Выделить всё

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long


[Dimon111]

Dimon111
Ты вообще знаешь, какая разница между App.Path и CurDir ?

Стыдно признаться, но нет.

[Хакер]

Стыдно должно быть не признаваться, а скрывать это, и выдавать за мнимо знание.

App.Path - это путь к образу (т.е. к exe-файлу или dll, в случае, если проект - dll-библа) исполняемого файла. Он всегда неизменен.

При этом, есть один досадный момент - App.Path имеет такой вид:
C:\
D:\
E:\
A:\
C:\WINDOWS
D:\Program Files

Т.е. нужно всегда проверять, если ли \ в конце.

Функция CurDir возвращает строку, содержащую текущий каталог процесса. У каждого процесса есть свой текущий каталог. И причём - для каждого диска.

Если приложение запускается просто так - текущий каталог будет совпадать с App.Path . Очень многие страдают из-за того что принимают этот факт как закон. CurDir совпадает с App.Path - но лишь иногда.

CurDir может меняться, и при том - кем угодно. Например, CommonDialog при работе файловых диалогов меняет CurDir. Поэтому у некоторых особо одарённых после CommonDialog.ShowOpen (например) где-нибудь в коде выполняется Open "config.dat" For Input As #1, и их приложение тупо умирает с 51:File not found. Они (особо одарённые) конечно потом орут, дескать - VB - самый глючный язык. Однако глючный не VB, а глючные мозги этих одарённых долбодятлов. Кстати говоря, на этом форуме такие тоже обитают.

Так вот. Кроме того, программист сам может менять текущий каталог функциями ChDir (изменяет сам каталог) и ChDrive (изменяет диск).

Следующая простыня из Immediate Pane должно помочь понять смысл текущего пути:

? curdir
C:\Program Files\Microsoft Visual Studio\VB98
chdir ".."
? curdir
C:\Program Files\Microsoft Visual Studio
chdir "c:\windows\system32"
? curdir
c:\windows\system32
chdir "drivers\etc\.\..\..\..\.\.\.\fonts\"
? curdir
c:\windows\fonts
chdrive "j:"
? curdir
J:\
chdir "soft"
chdir "fasmw167"
? curdir
J:\soft\fasmw167
chdir "\projects\fbrtl"
? curdir
J:\soft\fasmw167\projects\fbrtl
chdir ".."
chdrive "c:"
chdir ".."
? curdir
c:\windows
chdrive "j:"
? curdir
J:\soft\fasmw167\projects

[Dimon111]

Спасибо. Просвятили. Да, во многих глюках виноваты мы сами.

Хотя следующая строчка честно говоря завела меня в тупик:

chdir "drivers\etc\.\..\..\..\.\.\.\fonts\"

[Хакер]

Хотя следующая строчка честно говоря завела меня в тупик:

chdir "drivers\etc\.\..\..\..\.\.\.\fonts\"

Давай по порядку.

ChDir меняет текущий каталог. В качестве аргумента принимается либо полный путь (абсолютный) либо относительный. В данном случае - путь относительный.

Все относительные пути при работе с файлоыми операциями "отсчитываются" как раз относительно текущего каталога.

Перед вызовом функции текущий каталог - c:\windows\system32

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

Тогда получим относительный путь "drivers\etc\..\..\..\fonts\"

будем отщеплять от относительного пути уровни слева направо и присоединять их к текущему пути.

"c:\windows\system32\" +"drivers\etc\..\..\..\fonts\" =>
=> "c:\windows\system32\drivers\" + "etc\..\..\..\fonsts\"

"c:\windows\system32\drivers\" + "etc\..\..\..\fonts\" =>
=> "c:\windows\system32\drivers\etc\" + "..\..\..\fonts"

"c:\windows\system32\drivers\etc\" + "..\..\..\fonts"=>
=> "c:\windows\system32\drivers\etc\..\" + "..\..\fonts"=>
=> "c:\windows\system32\drivers\" + "..\..\fonts"

( потому что \a\b\c\.. эквивалетно \a\b\ так как .. означает родительский каталог \a\b\c\, а родительский каталог \a\b\c\ это и есть \a\b\ )

Дальше я думаю понятно?

[Dimon111]

Понял. Спасибо.