Страница: 1 |
Страница: 1 |
Вопрос: Список в файл
Добавлено: 22.09.05 20:12
Автор вопроса: DR*FRe$H | ICQ: 3442442
Как записать список файлов из list-box'a или просто из папки в текстовый файл?
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #1
Добавлено: 22.09.05 20:39
через разделитель?
dim i as king
dim nf as integer
nf = freefile
open "c:\1.txt" for binary accss write as nf
for i = 0 to istbox1.count
put nf,,listbox1.list(i) & vbcrlf
next
close nf
Номер ответа: 2
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #2
Добавлено: 22.09.05 20:44
кидай на форму filelist, далее...
file$ = "C:\1.txt"
n = FreeFile
Open file$ for output as #n
For i% = 0 to File1.ListCount - 1
Print #n, File1.List(i
Next i%
Close #n
Ещё есть много способов получения списка файлов и папок, через FSO, через FindFirstFile - FindNextFile, через Dir$ итп... итд... Но это самый простой из всех перечисленных. А про остальные рассказать предоставляю возможность другим форумчанам, ведь все хотят поднять кол-во ответов ))) шутка
Номер ответа: 3
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #3
Добавлено: 22.09.05 20:45
о! пока писал sne тут как тут От что значит лидер... ))
Номер ответа: 4
Автор ответа:
Barsik
Разработчик Offline Client
ICQ: 343368641
Вопросов: 17
Ответов: 686
Web-сайт:
Профиль | | #4
Добавлено: 22.09.05 22:12
2sne:
сам и ответил
Номер ответа: 5
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #5
Добавлено: 23.09.05 02:39
это типа вопрос Точнее условие if (с разделителем), then ...
Номер ответа: 6
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #6
Добавлено: 23.09.05 12:44
for i = 0 to istbox1.count
put nf,,listbox1.list(i) & vbcrlf
next
Думается, лучше все же сначала все это засунуть в буффер, а затем записать на диск за одну операцию.