Можно как-нибудь БЫСТРО удалить большое кол-во файлов в заданной папке ?
Скорее всего - через WinAPI ... Сейчас пользуюсь следующим кодом:
Код: Выделить всё
FIQ QUEUE,PRE(F_IQ)
Name STRING(FILE:MAXFILENAME)
ShortName STRING(13)
Date LONG
Time LONG
Size LONG
Attrib BYTE
END
Loc:Count Long
Code
Free(FIQ)
Directory(FIQ,LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*', FF_:NORMAL)
If Records(FIQ)
Loop Loc:Count = 1 to Records(FIQ) by 1
Get(FIQ,Loc:Count)
If Clip(Left(FIQ.Name)) <> ''
If Exists(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
end
end
end
end
Заранее спасибо за любую наводку.
