Dir: В чем проблема?

[Морфий]

В директории Path еще две папки: folder1 и folder2 и один файл setup.inf.
Надо получить имена папок в этой директории.

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

    temp = Dir(path, vbDirectory)
    Do Until temp = ""
    DoEvents
    If temp = "" Then Else temp1 = ">" & temp1 & temp
    temp = Dir
    Loop


Возвращает строку >.>..>setup.inf>folder1>folder2
В чем проблема?

[tyomitch]

Ни в чём. Всё совершенно правильно.

[Морфий]

а как получить имена папок?

[xolod]

Чтобы получить имена только директорий, без файлов, следует проверять аттрибуты, к примеру, так:

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


  Dim astrFolders As String
  Dim astrPath As String
 
  astrPath = "C:\"
  astrFolders = Dir(astrPath, vbDirectory)
  Do
    If (astrFolders = "") Then Exit Do
    If (GetAttr(astrPath & astrFolders) = vbDirectory) Then Print astrFolders
   
    astrFolders = Dir()
  Loop


[Морфий]

Если проверять аттрибуты, то возвращает:
>.>..>folder1>folder2
а нафига мне нужны "." и ".."

[tyomitch]

Морфий, не нужны - не бери. Но во всех папках, кроме корневой, они к тебе будут приходить.

[xolod]

Морфий
И предупреждая твой следующий потенциальный вопрос
. - ссылка на саму папку
.. - на папку вверх по древу каталогов