renamefile não executa
boa tarde
estou usando essa sintaxe, no delphi 5.0
Renamefile(od_Arquivo.FileName, ChangeFileExt(od_Arquivo.FileName,´.oky´));
O arquivo e do tipo xls, e ainda não existe nenhum com o mesmo nome no local a ser renomeado, esta me retornando falso, como que já estivesse o arquivo gravado. Teria uma outra maneira para forçar o rename?
Obrigado
estou usando essa sintaxe, no delphi 5.0
Renamefile(od_Arquivo.FileName, ChangeFileExt(od_Arquivo.FileName,´.oky´));
O arquivo e do tipo xls, e ainda não existe nenhum com o mesmo nome no local a ser renomeado, esta me retornando falso, como que já estivesse o arquivo gravado. Teria uma outra maneira para forçar o rename?
Obrigado
Airto
Curtidas 0
Respostas
Tatuweb
04/05/2004
Se vc quer simplesmente trocar a extensão do arquivo faça:
Lembrando que vc deve indicar o path completo.
RenameFile (´C:\Arquivo.txt´, ´C:\Arquivo.doc´);
Lembrando que vc deve indicar o path completo.
GOSTEI 0
Airto
04/05/2004
o nome do arquivo não e fixo
GOSTEI 0
Nildo
04/05/2004
- Verifique se o arquivo a ser renomeado NÃO está em uso;
- Verifique se a propriedade FileName está retornando o Path também.
- Verifique se a propriedade FileName está retornando o Path também.
GOSTEI 0
Emerson Nascimento
04/05/2004
além do que já foi dito, parece até bobagem o que vou ´dizer´, mas até nos exemplos do Delphi é criada uma variável com a alteração desejada.
var sNovoNome: string;
begin
sNovoNome := ChangeFileExt(od_Arquivo.FileName,´.oky´);
if not Renamefile(od_Arquivo.FileName, sNovoNome) then
ShowMessage( ´Não foi possível renomear o arquivo.´ );
end;
var sNovoNome: string;
begin
sNovoNome := ChangeFileExt(od_Arquivo.FileName,´.oky´);
if not Renamefile(od_Arquivo.FileName, sNovoNome) then
ShowMessage( ´Não foi possível renomear o arquivo.´ );
end;
GOSTEI 0