Всем доброго времени суток.
Суть проблемы: Есть форма, на форме есть некий Label1, необходимо передать на него например имя файла (или его полный путь, или дату создания и т.д.) из указанной папки ( при этом о файле ничего заранее неизвестно). Т.е. в коде это выглядит примерно так:



1 - Запись количества файлов в первой директории папки "C:\ProgTest"
2- Запись пути первой директории папки "C:\ProgTest"
3 - Запись Даты создания первого файла в первой директории папки "C:\ProgTest"

Вроде бы все должно работать ( даже тип данных совпадает) , но при компиляции пишет 
"Run-time error '5': Invalid procedure call or argument"

Как не пытаюсь выудить инфу, все не получается. Чувствую загвоздка в пустяке, но не могу его найти .
Помогите пожалуйста. Заранее спасибо. 

Я тестил ваш код...

С чего вы взяли, что если написать Item(1), то будет возвращена первая папка?
В итеме, мне кажется, можно указывать папки только названиями, например, Item("Новая папка")
В этом случае всё работает...

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

Вот твой код:


Это сообщение отредактировал(а) Rrader - 30.3.2008, 18:06

2 I_Am_Rock  

Если загнать в Wathes, то видно, что Item имеет индентификатор число, а не строку (проверь, удивишся), 
при этом номер начинается с 1 ( а не с 0 !! )))

Rrader 

Ok спасибо, на тесте...

2 Rrader  

Спасибо за код, он мне очень поможет.
В принципе тема раскрыта для меня, но есть один вопрос:
1. Зачем проверка на FirstFolder ?
2. Зачем проверка, если она отключается FirstFolder = False

Немного отредактировал код. Нелогично было.

По теме:



Чтобы сделать выход из цикла. Здесь нас интересует только первая поддиректория.  (первая - в смысле по алфавиту в имени).

Для первого файла нужно во вложенном цикле смотреть номер итерации. Лучше целочисленный итератор завести...

Это сообщение отредактировал(а) Rrader - 30.3.2008, 18:15

OK Все понял.
Всем спасибо )))