Excluir Arquivos

[OSJunior]

Opa! Salve galera!

Faz um tempinho que num aparecia por aqui.

Minha dúvida: Como ao clicar num button, exclua arquivos e até mesmo pastas.

Mas escolhendo num Edit, a pasta que o user deseja excluir.

//Abraços pro Kiko e pro Progr'amador

falou.

[Kikonanet]

Olá OSJunior,

//Abraços pro Kiko e pro Progr'amador

Ae valeu pela força!!

Ae testa essa função

function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean;
var
  r: TshFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(FolderName) then
  Exit;
  if LeaveFolder then
  FolderName := FolderName + ' *.* '
  else
  if FolderName[Length(FolderName)] = ' \ ' then
  Delete(FolderName,Length(FolderName), 1);
  FillChar(r, SizeOf(r), 0);
  r.wFunc := FO_DELETE;
  r.pFrom := PChar(FolderName);
  r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted));
end;

Usa-se assim

deleteFolder('c:\temp',false);

No caso você colocaria deleteFolder(Edit1.text,false); Para apagar um arquivo

if FileExists('C:\MEUDIR\MEUARQ.DAT') then DeleteFile('C:\MEUDIR\MEUARQ.DAT');

Abs.

Kiko

[OSJunior]

Vlw ae cara!

só uma duvida: o que seria r: TshFileOpStruct;

Abraços.

[Progr'amador]

só uma duvida: o que seria r: TshFileOpStruct;

Olá OSJunior,

TshFileOpStruct é uma estrutura que contem informações de copia, exclusão e movimentação de arquivos ela faz parte da função ShFileOperation, definida em ShellApi.pas

Abs. Progr'amador.