Добро пожаловать в форум, Guest >> Войти | Регистрация | Поиск | Правила | | В избранное | Подписаться | ||
Все форумы / FoxPro, Visual FoxPro |
![]() ![]() |
Кузнецов Игорь Member Откуда: Иваново Сообщений: 143 |
Добрый день. Возникла неожиданная трудность. Мне потребовалось получить в таблицу список всех файлов в директории. Пошел стандартным путем - взял команду ADIR. Но облом: она ответила Array dimension invalid. Стал разбираться, в чем дело. Оказалось, что там лежит столько файлов, что не влезают в массив (т.е. более 13 000). Отсюда вопрос: как еще можно получить список файлов. Достаточно только их имена с расширениями. |
3 окт 06, 13:58 [3215054] Ответить | Цитировать Сообщить модератору |
Sergey Ch Member Откуда: Благовещенск Сообщений: 8878 |
А если DIR TO FILE, затем APPEND FROM в курсор ? |
3 окт 06, 14:16 [3215215] Ответить | Цитировать Сообщить модератору |
Кузнецов Игорь Member Откуда: Иваново Сообщений: 143 |
Команды DIR * TO FILE DISPLAY FILES LIKE "*" TO FILE LIST FILES LIKE "*" TO FILE выводят список файлов сначала на SCREEN. Причем первые две еще просят подтверждения после заполнения SCREEN'a. К тому же структура файла, в который направляется вывод - непостоянна (зависит от ширины SCREEN'a) ---------------------------------------------- Кто в армии служил - тот в цирке не смеется. |
3 окт 06, 14:26 [3215291] Ответить | Цитировать Сообщить модератору |
piva Member Откуда: Курган Сообщений: 1096 |
Filer из поставки фокса Scripting.FileSystemObject тоже сгодится ![]() |
3 окт 06, 14:32 [3215325] Ответить | Цитировать Сообщить модератору |
-=AlexiS=- Member Откуда: Одесса Сообщений: 712 |
! dir /A-D /B > aaa.txt |
3 окт 06, 14:43 [3215369] Ответить | Цитировать Сообщить модератору |
Кузнецов Игорь Member Откуда: Иваново Сообщений: 143 |
Тоже вариант, хоть и DOS-сессия ... Кстати, а с использованием API слишком сложно будет? |
||
3 окт 06, 15:02 [3215489] Ответить | Цитировать Сообщить модератору |
piva Member Откуда: Курган Сообщений: 1096 |
Ага - жутко сложно без бутылки не поймешь ![]() o=CreateObject("Scripting.FileSystemObject") loDir=o.GetFolder("C:\WinNT\System32") loFiles=loDir.Files For each loFile in loFiles ? loFile.Name Next |
3 окт 06, 15:18 [3215622] Ответить | Цитировать Сообщить модератору |
ВладимирМ Member Откуда: г. Москва Сообщений: 7884 |
Подробнее об использовании Scripting.FileSystemObject в FoxPro смотри здесь http://kodu.neti.ee/~juri4/vfpplus/vbs_fso_01_ru.htm |
3 окт 06, 15:25 [3215663] Ответить | Цитировать Сообщить модератору |
Кузнецов Игорь Member Откуда: Иваново Сообщений: 143 |
Класс! Спасибо piva и ВладимирМ! |
3 окт 06, 15:54 [3215860] Ответить | Цитировать Сообщить модератору |
Все форумы / FoxPro, Visual FoxPro | ![]() |