|
#1
|
||||
|
||||
очистит папку
Как с помошю делфи очистить какуюта папку например
c:/windows/temp |
#2
|
||||
|
||||
Код:
function ClearDir( Dir: string ): boolean; var isFound: boolean; sRec: TSearchRec; begin Result := false; ChDir( Dir ); if IOResult <> 0 then begin ShowMessage( 'Не могу войти в каталог: ' + Dir ); Exit; end; if Dir[Length(Dir)] <> '\' then Dir := Dir + '\'; isFound := FindFirst( Dir + '*.*', faAnyFile, sRec ) = 0; while isFound do begin if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then if ( sRec.Attr and faDirectory ) = faDirectory then begin if not ClearDir( Dir + sRec.Name ) then Exit; if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then if ( Dir + sRec.Name ) <> Dir then begin ChDir( '..' ); RmDir( Dir + sRec.Name ); end; end else if not DeleteFile( Dir + sRec.Name ) then begin ShowMessage( 'Не могу удалить файл: ' + sRec.Name ); Exit; end; isFound := FindNext( sRec ) = 0; end; FindClose( sRec ); Result := IOResult = 0; end; procedure TForm1.Button1Click(Sender: TObject); begin ClearDir( 'C:\Windows\Temp' ); end; |
#3
|
||||
|
||||
есть вопрос - есть ответ. Какой вопрос - такой ответ :d
Можно создавать динамически временные Bat-файлы. SysMan. C++Builder Internet/Intranet Programming. |
#4
|
||||
|
||||
Попробую и скажу
|
#5
|
||||
|
||||
function ClearDir( Dir: string ): boolean;
var isFound: boolean; sRec: TSearchRec; begin Result := false; ChDir( Dir ); if IOResult <> 0 then begin ShowMessage( 'Не могу войти в каталог: ' + Dir ); Exit; end; if Dir[Length(Dir)] <> '\' then Dir := Dir + '\'; isFound := FindFirst( Dir + '*.*', faAnyFile, sRec ) = 0; while isFound do begin if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then if ( sRec.Attr and faDirectory ) = faDirectory then begin if not ClearDir( Dir + sRec.Name ) then Exit; if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then if ( Dir + sRec.Name ) <> Dir then begin ChDir( '..' ); RmDir( Dir + sRec.Name ); end; end else if not DeleteFile( Dir + sRec.Name ) then begin ShowMessage( 'Не могу удалить файл: ' + sRec.Name ); Exit; end; isFound := FindNext( sRec ) = 0; end; FindClose( sRec ); Result := IOResult = 0; end; procedure TForm1.Button1Click(Sender: TObject); begin ClearDir( 'C:\Documents and Settings\(как поставить сюда имя пользователя из Edit1.text)\Local Settings\Temp' ); end; |
#6
|
||||
|
||||
Код:
ClearDir( 'C:\Documents and Settings\'+Edit1.Text+'\Local Settings\Temp' ); |
#7
|
||||
|
||||
Спосибо огромное
|