[Duvida] Removendo atributos de um determinado arquivo.

[ready]

como remover todos os atributos?

tenho um arquivo, read only e oculto
quero remover atributos,
estava usando

FileSetAttr(ExtractFileDir(local+'\arquivo.exe'),0 );

mais não resolveu,
abraços

opá, só um instante, tem alguma coisa que possa ocasionar issu errado?

porque fiz um novo projeto,
FileSetAttr ('C:\Teste\Teste.TXT',0);

e assim removeu.

oque pode estar ocasionando?

abraços!

[ready]

desculpem mais um post, mais...
já descobri, um passo, mais não a solução

fiz edit1 e edit2

edit1 = informa o local (c:\)
edit2 = informa o arquivo (teste.exe)



procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=edit2.text;
FileSetAttr(ExtractFileDir(edit1.text+s),0);
end;


e assim ele não atribui, ahhaha :twisted:

mais porq? ou melhor como fazer pra atribuir?

[souzadc]

Cara,

Amigo ready,

Aguarde 24 horas antes de realizar um novo tópico ou simplesmente peça a algum membro que edite seu tópico. Leia nossas regras e fique atento para não sofrer moderação desnecessariamente.

Sem mais!!!!!
:arrow:

[ace_ventura]

Eh claro que nao esta dando certo, tu esta colocando apenas o path do arquivo que quer mudar, mas nao o arquivo em si... tente fazer assim:

FileSetAttr(ExtractFilePath(Application.ExeName)+'\oi.exe',0);

[ready]

como assim o path e não o arquivo em si?

se eu tenho no edit1, path e edit2 arquivo.exe?

não compreendo :S

[ace_ventura]

voce esta usando o seguinte codigo:

FileSetAttr(ExtractFileDir(local+'\arquivo.exe'),0);

Repare que ExtractFileDir, retorna apenas o diretorio de um arquivo, no caso a string "local" + '\arquivo.exe'. Sendo assim a funcao ExtractFileDir retornaria apenas a string "local", portanto tu esta retirando os parametros da PASTA e nao do arquivo, verifique se isso esta correto.

[ready]

realmente ;p agora eu entendi

vlw!


abraços!