Bom dia, Delphianos!

Estou tendo problema em testar a existência de arquivos num diretório, devido 
ao tipo de letra (maiúscula ou minúscula) que o nome dele possa estar escrito.

Exemplo:

Nome do arquivo: Arquivo.dbf

if FileExists('ArQuiVo.dbf') then
  ...
else
   ShowMessage('Arquivo não encontrado!'); // Arquivo não encontrado por causa 
do "Q" e "V" (maiúsculos)

Sei que poderia usar o função "UpperCase()" ou "LowerCase()" para converter 
todo o nome para maiúscula ou minúscula, mas eu teria que mudar o nome de todos 
arquivos e não quero fazer isso porque estou trabalhando com arquivos gerados 
por outro sistema.

Pergunto: existe alguma diretiva que torne a função "FileExist", "case 
insensitive"?

Desde já eu agradeço a ajuda.

Um abraço.
Vandinei A. Santos
Analista Programador em Delphi


[As partes desta mensagem que não continham texto foram removidas]

Responder a