Fórum Apagar Subpastas #332188
27/10/2006
0
Olá
Boa Tarde
Gostaria de um exemplode código de como apagar uma determinada pasta Ex: Tenho a pastas C:\Misael\teste, gostaria de apagar somente a pasta teste dentro da pasta misael...
Agardeço desde já
Boa Tarde
Gostaria de um exemplode código de como apagar uma determinada pasta Ex: Tenho a pastas C:\Misael\teste, gostaria de apagar somente a pasta teste dentro da pasta misael...
Agardeço desde já
Misael
Curtir tópico
+ 0
Responder
Posts
29/10/2006
Martins
Olá
Boa Tarde
Gostaria de um exemplode código de como apagar uma determinada pasta Ex: Tenho a pastas C:\Misael\teste, gostaria de apagar somente a pasta teste dentro da pasta misael...
Agardeço desde já
[code]
Inclua a unit SHELLAPI na clausula uses do seu form.
procedure DeleteDir( hHandle : THandle; Const sPath : String );
var
OpStruc: TSHFileOpStruct;
FromBuffer, ToBuffer: Array[0..128] of Char;
begin
fillChar( OpStruc, Sizeof(OpStruc), 0 );
FillChar( FromBuffer, Sizeof(FromBuffer), 0 );
FillChar( te a pasta teste dentro da pasta misael...
Agardeço desde já
[code]
Inclua a unit SHELLAPI na clausula uses do seu form.
procedure DeleteDir( hHandle : THandle; Const sPath : String );
var
OpStruc: TSHFileOpStruct;
FromBuffer, ToBuffer: Array[0..128] of Char;
begin
fillChar( OpStruc, Sizeof(OpStruc), 0 );
FillChar( FromBuffer, Sizeof(FromBuffer), 0 );
FillChar( ToBuffer, Sizeof(ToBuffer), 0 );
StrPCopy( FromBuffer, sPath);
With OpStruc Do
Begin
Wnd:= hHandle;
wFunc:=FO_DELETE;
pFrom:= @FromBuffer;
pTo:= @ToBuffer;
fFlags:= FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
End;
ShFileOperation(OpStruc);
end;
Utilize a função assim:
pToBuffer, Sizeof(ToBuffer), 0 );
StrPCopy( FromBuffer, sPath);
With OpStruc Do
Begin
Wnd:= hHandle;
wFunc:=FO_DELETE;
pFrom:= @FromBuffer;
pTo:= @ToBuffer;
fFlags:= FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
End;
ShFileOperation(OpStruc);
end;
Utilize a função assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteDir( Self.Handle,´C:\TESTE´);
end;
[/code]
Responder
Gostei + 0