Скрипт Для Работы С Файлами

[GveinBlade]

Коллеги, я на форуме натыкался на скрипт который поднимает файлы из папки(Windows), в массив для дальнейшего их удаления, кроме того скрипт поднимает имя каждого файла. Кто натыкался Скиньте ссылку, пожалуйста. Заранее Спасибо за помощь.

 

[morpheus]

GveinBlade
DIR$ + F1 там есть примеры

' List the contents of the c:\ directory, one entry per line.
Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Loop

 

[GveinBlade]

Спасибо! Попробую отпишусь!

 

[lmike]

https://codeby.net/threads/38604.html?vi...st&p=186879 ниже по топику - рапер для LS
ЗЫЖ:подправьте название топика (чтобы отражало вопрос, кратко) - посетители могут искать подобную информацию

 

[GveinBlade]

Спасибо! Есть еще какие-нибудь топики или примеры на эту тему?

 

[morpheus]

GveinBlade
а что вам собственно ещё необходимо?

 

[VladSh]

1-я часть на чистом LS здесь.

 

[GveinBlade]

GveinBlade
а что вам собственно ещё необходимо?

Необходимо в каталоге(каталог известен) брать файлы из имени файла брать время создания и обрабатывать по порядку от более старых к более новым, после обработки удалить все файлы.

 

[nvyush]

из имени файла брать время создания

Это уже разбор строк, изучайте функции работы со строками (Instr, Mid и т.д.)

после обработки удалить все файлы

Можно по завершению обработки каждого файла

Kill fileName

Можно весь каталог (если создавать временный)

RmDir path

Можно все файлы из каталога
Shell("del путь\*.*") '(для винды, подробнее см. справку по del)