Fórum Renomear arquivos #388213

Bom dia pessoal

Estou num dilema a mais de 4 dias, e infelizmente a cabeça já deu o que tinha que dar para esta tarefa que aparentemente é bem simples. RENOMEAR ARQUIVOS.

É o seguinte tenho alguns audios no formato mp3 e o nome destes audios estão em números. Ex: 01094.mp3, 01133.mp3 e assim se segue.
Acontece que através da rotina abaixo alguns arquivos ele renomeia para o nome correto, buscando através de uma base de dados os nomes e os interpretes corretos de cada música. Mas infelizmente alguns audios não são renomeados para o nome correto, permanecendo como 01094.mp3 e assim por diante.

Já fiz uma rotina para verificar se o arquivo existe e ele retorna que esta tudo ok e achou o arquivo. Agora não sei o que esta acontecendo pois já utilizei até extensões em minuscula, maiuscula, primeira letra minuscula, primeira letra em maiuscula e nada funcionou.

Gostaria de uma pequena ajuda para converter estes nomes.

Rotina

  while not (ADODataSet1.Eof) do
    begin
      cCodigo     := trim('0' + ADODataSet1.FieldByName('Cod').AsString);
      cInterprete := UpperCase(Copy(ADODataSet1.FieldByName('Inter').AsVariant,1,1)) + LowerCase(Copy(ADODataSet1.FieldByName('Inter').AsVariant,2,length(ADODataSet1.FieldByName('Inter').AsVariant)));
      cDescricao  := ADODataSet1.FieldByName('Descr').AsString;
      cNomeMusica := UpperCase(Copy(cDescricao,1,1)) + LowerCase(Copy(cDescricao,2,length(cDescricao)));
      Label1.Caption := cInterprete + ' - ' + cNomeMusica;
      RenameFile(cCodigo + '.MP3', cInterprete + ' - ' + cNomeMusica + '.Mp3');
      RenameFile(cCodigo + '.mp3', cInterprete + ' - ' + cNomeMusica + '.Mp3');
      RenameFile(cCodigo + '.Wav', cInterprete + ' - ' + cNomeMusica + '.Mp3');
      RenameFile(cCodigo + '.wav', cInterprete + ' - ' + cNomeMusica + '.Mp3');
      RenameFile(cCodigo + '.mp3', cInterprete + ' - ' + cNomeMusica + '.Mp3');
      ADODataSet1.Next;
      cInterprete := '';
      cNomeMusica := '';
      cDescricao  := '';
    end;
    Application.MessageBox('Troca Parcial, concluída com sucesso','Aviso',mb_ok + mb_IconInformation);
    Application.Terminate;


Desde já agradeço a colaboração dos companheiros.

t+