Deletar Pasta

[christianhess 0]

Como faço para deletar uma pasta com tudo o q tem dentro, sendo que esta pasta fique em um caminho q o DOS não consegue compreender, ajudem por favor e agora??? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[thalesoli 0]

Ola christianhess

 

Espero que o código abaixo te ajude

 

Problemas para deletar um diretório com subdiretórios? Utilize a função abaixo:UsesShellapi, filectrl, //declare estas das units!!!function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean;varr: TshFileOpStruct;beginResult := False;if not DirectoryExists(FolderName) thenExit;if LeaveFolder thenFolderName := FolderName + ' *.* 'elseif FolderName[Length(FolderName)] = ' \ ' thenDelete(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:procedure TForm1.Button1Click(Sender: TObject);begindeleteFolder('c:\temp',false);end;

 

Falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif