FSO. Не получается обратиться к файлу по индексу ???!

[ALX_2002]

Народ, у меня что то совсем дичайщие лаги с думалкой.

Всегда был уверен, что если написать так

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

Dim FSO
Dim FOLDER
FSO=CreateObject("Scripting.FileSystemObject")
FOLDER=FSO.GetFolder("D:\test")


А потом попробывать обратиться к файлу в папке D:\test

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

msgbox FOLDER.files(1).name

или так

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

msgbox FOLDER.files.Item(1).name

То должно пахать !!!!!!!

Главное в папке файло есть ! Я проверял Их count. Равняется=15. Даже через FOR each перебирал. Всё пашет.

А по индексу не хрена ?!! Втолкуйте мне плиз. Я уже MSDN глянул. Там только этот долбаный пример перебора всех файлов через FOR EACH.

Раздосадован, что задаю такой глупый вопр. Помню, что раньше всё пахало ![/b]

[GSerg]

Это не пахало никогда.
Только по имени, батенька, только по имени

[ALX_2002]

Хм.. Ну а как тогда получать допустим имя 5 файла в папке ????
Как то ведь я это делал.

[GSerg]

А как они, по-твоему, должны нумероваться, в каком порядке?

[ALX_2002]

Отец ! Дык нумеруются они по алфавиту, как я знаю ? Или нет ?

И ведь при For each переборе он выводит всегда один и тот же список.

Значит нумеруются как то.

Ты лучше скажи - как сделать перебор допустим с 3 по 5 ? Я сейчас пытался в For each впихивать счётчки. Пашет. Но меня такая технология парит.

[GSerg]

Как первый раз добавились, так и нумеруются
Ну не может же FSO прочитать в себя список файлов, чтобы дать возможность обращаться по индексу - система-то многозадачная, однако, файлы появляются и исчезають...
Так что по имени. С проверкой существования по факту обращения.

[ALX_2002]

Писец.... FSO в помойку....комп на разборку... Голову в духовку...

[Ennor]

Брателло, че-то у тебя совсем жуткие лаги с этим делом . Файлы на диске никогда по порядку не нумеровались за отсутствием оного порядка. И ни одна обертка тебе этого порядка не даст, если только ты ее сам не напишешь с таким функционалом. Но учти, что это будет по сути offline-листер, ибо, как совершенно правильно заметил GSerg, количество и названия файлов в каталогах изменяются непредсказуемо и независимо ни от чего и ни от кого.

Вообще, я теперь понимаю, почему MS собирается в лонгхорне делать файловую систему на основе движка SQL Server. В этих двух концепциях действительно очень много общего...

[ALX_2002]

Отцы ! Гении ! Объясните мне тогда

Как я перебирал файло через FOR NEXT ???

For N=1 to 5
...
Next

Ведь делал как то ??!! Но в упор не помню как....

И ведь For Each пашет, значит через For Next тоже можно как то прогнать файло

[GSerg]

Объясняю

For each - это обёртка для следующего процесса.

получение IUnknown объекта
queryinterface NewEnum
вызов метода NewEnum.Next, пока не будет возвращено "харе"

За имена методов и интерфейсов не ручаюсь, но смысл ясен
Объект, NewEnum которого вызывается, сам определяет, как и что возвращать в ответ на Next. если возвращать больше нечего, объект возвращает nothing.

А для юзера это выглядит как простой перебор. Хотя концептуально от него отличается

[ALX_2002]

Это всё ясно... Но блин, я ща напрягусь. Сделаю !!!
Раз тогда сделал, значит и сейчас сделаю

Короче у меня задача брать из списка файлов по 3 штуки начиная с указанного. Буду думать как.

[GSerg]

Да ёпрст...
Бери имена в массив, сортируй и бери. если они не исчезнут в процессе, файлы