Снова FileSystemObject

[Ефрейтор]

Возникла потребность счиать все имена файлов из конкретного каталога. Почитал темы форума и понял, что самый простой способ через FileSystemObject. Написал процедуру, но она выдаёт ошибку с которой не могу разобраться. Там даже запутаться негде, но процедура не работает. В строке

NameFile = MyFolder.Files(i).Name

выдаёт: Invalid Procedure call or argument
Странно всё это, для такого простого в понимании объекта....
Помогите люди добрые.


Private Sub Form_Load()
Dim FSys As New FileSystemObject
Dim MyFolder As Folder
Dim NameFile As String
Dim i As Integer

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSys.GetFolder("C:\")

For i = 1 To MyFolder.Files.Count
NameFile = MyFolder.Files(i).Name
Debug.Print NameFile
Next
End Sub


Пробовал использовать команду Dir, но она считывает файл только с конкретными атрибутами, а мне нужно считать каждый файл и сиситемный и скрытый и т.д.[/syntax]

[Odrick]

Попробуй так:

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

Private Sub Form_Load()
  Dim FSys As New FileSystemObject
  Dim MyFolder As Folder
  Dim MyFile as File
  Dim NameFile As String

  Set MyFolder = FSys.GetFolder("C:\")

  For Each MyFile In MyFolder.Files
     NameFile = MyFile.Name
     Debug.Print NameFile
  Next
End Sub


[Ефрейтор]

Odrick
Попробовал....хмм.. действительно работает....
Только не пойму в чём разница между твоей и моей организацией цикла....по логике вроде тоже самое...до этого случия организация цикла как в моём коде никогда не подводила, всегда нормально работала с коллекциями, конечно визуально она не так изящна чем твой код, но разницы не вижу ни какой. Или что я не понимаю? Может кто чиркнит пару слов на тему разницы в данном примере?

[Odrick]

Разница на самом деле есть и существенная. Если почитать внимательно описание объектной модели FileSystemObject, то можно увидеть, что коллекция Files не имеет числовых индексов. Таким образом, "достучаться" к элементам коллекции по номеру невозможно. В общем, MSDN рулит

[X-BOND]

FSO help на русском

[Ефрейтор]

Odrick
X-BOND
Спасибо люди добрые, сам бы я наверно ни когда не до пёр