Udalenie faylov

← →
Mamed © (2004-05-24 10:17) [0]

kak udalit folder s faylami?FindFirst DeleteFile,Filenext ne xochetsya delat

← →
SammIk © (2004-05-24 10:22) [1]

}{04eT N0 ne |\/| O }|{ E T!!!!
В рекурсии попробуи,
сначало из самого верхнего коталока исчешь фаил, если папка, то
заходишь в нее и тд и тп, и все ок))

← →
Mamed © (2004-05-24 10:25) [2]

etogo znayu no mne xochetsay takoe komanda:
del *.*

← →
SammIk © (2004-05-24 10:32) [3]

На мыло заиди я тебе код послал.
Но сразу его не запускаи, а сначала изучи.
Поспешность черевата, лишением большеи части фаилов с дисков C & D

← →
Mamed © (2004-05-24 10:38) [4]

Spasibo
Takoy kod bil menya prosto mnogo fayli a takoe udaleni eto vremya....

← →
ALS (2004-05-24 11:00) [5]

uses ShellApi;
...
function DeleteDirectory(const DirName: string; Quiet: boolean = False): boolean;
var ShellInfo: TSHFileOpStruct;
begin
ZeroMemory(@ShellInfo, SizeOf(ShellInfo));
with ShellInfo do
begin
wFunc := FO_DELETE;
if Quiet then
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(DirName + #0)
end;
Result := (ShFileOperation(ShellInfo) = 0)
end;

А какое ты еще удаление знаешь?
Писать посекторно на диск?))

Udalenie faylov Найти похожие ветки