----gt; Deletar Arquivo AJUDA É URGENTE!!!

Delphi

17/03/2003

preciso fazer uma coisa:
eu vou digitar o caminho + nome do arquivo em um Edit.

então ao clicar em um Botão, esse arquivo deverá ser deletado do micro, (não poderá nem ir pra lixeira), deve sumir mesmo, sem chance de restauração.

Muito Obrigada

Fabiana. :P


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

17/03/2003

[quote:7b7cabd248=´Fabiana Gimenez´]preciso fazer uma coisa:
eu vou digitar o caminho + nome do arquivo em um Edit.

então ao clicar em um Botão, esse arquivo deverá ser deletado do micro, (não poderá nem ir pra lixeira), deve sumir mesmo, sem chance de restauração.

Muito Obrigada

Fabiana. :P[/quote:7b7cabd248]

The following code prompts for confirmation before deleting a file:

if FileExists(FileName) then

if MessageDlg(´Do you really want to delete ´ + ExtractFileName(FileName) + ´?´), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then
DeleteFile(FileName);


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/03/2003

[quote:288509cad4=´Aroldo Zanela´][quote:288509cad4=´Fabiana Gimenez´]preciso fazer uma coisa:
eu vou digitar o caminho + nome do arquivo em um Edit.

então ao clicar em um Botão, esse arquivo deverá ser deletado do micro, (não poderá nem ir pra lixeira), deve sumir mesmo, sem chance de restauração.

Muito Obrigada

Fabiana. :P[/quote:288509cad4]

The following code prompts for confirmation before deleting a file:

if FileExists(FileName) then

if MessageDlg(´Do you really want to delete ´ + ExtractFileName(FileName) + ´?´), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then
DeleteFile(FileName);[/quote:288509cad4]

Não se pode confiar nem no help do Delphi7. Corrigindo:

var filename: String;
begin
filename := ´C:\auto.bat´;
if FileExists(FileName) then

if MessageDlg(´Do you really want to delete ´ + ExtractFileName(FileName) + ´?´, mtConfirmation, [mbYes, mbNo], 0) = IDYes then
DeleteFile(FileName);

end;



GOSTEI 0
POSTAR