FSO

[gjghjc]

Как при помощи fso узнать имена файлов содержащихся в каталоге
Я делаю так

for i = 1 to fold.folders.files.count ' количество файлов в каталоге определяется верно

Combo1.AddItem fold.folders.files.item(i) ' вот тут и вылезает бочина в виде "Argument not optional"

next i

Можно конечно сделать и через FileListBox, но неохота таскать на форме неиспользуемый невидимый контрол.

[boevik]

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

Dim oFSO As New FileSystemObject
Dim oFile As File

For Each oFile In oFSO.GetFolder("c:\").Files
    Debug.Print oFile.Name
Next oFile


[RayShade]

2 gjghjc

НУ ты повнимательнее на свой код глянь - у тебя не указан какой именно folder тебе нужен. Folders - это коллекция.

[gjghjc]

2boevik Спасибо за помощь все работает.
2RayShade Постараюсь быть повнимательнее

[X-BOND]

Может кому пригодится...