Macrosubstituição do nome do arquivo
17/02/2003
0
:?: Tenho um Form de cadastro de clientes, que além dos dados básicos gravo também uma fotografia e um pequeno vídeo do cliente.
A cada vídeo que gravo de cada cliente é sempre criado um arquivo de nome VIDEO.AVI.
Preciso gravar cada arquivo de vídeo com a combinação:
Exemplo:
VD + Cód.Cliente + .AVI >>> ‘VD’ + 00035 + ‘.AVI’
Para determinar o nome que o arquivo tem que ter estou fazendo:
M_Video := DtmDados.Clientes.FieldValues[´Cli_Cod´]; // pego o código do cliente
M_Video := ´VD´ + M_Video + ´.AVI´; // monto a string com o nome do arquivo
Mas e agora, como continuar. Tenho que trocar o nome do arquivo Vídeo.Avi para o conteúdo de M_Video, como se faz.
Obrigado
Neto
A cada vídeo que gravo de cada cliente é sempre criado um arquivo de nome VIDEO.AVI.
Preciso gravar cada arquivo de vídeo com a combinação:
Exemplo:
VD + Cód.Cliente + .AVI >>> ‘VD’ + 00035 + ‘.AVI’
Para determinar o nome que o arquivo tem que ter estou fazendo:
M_Video := DtmDados.Clientes.FieldValues[´Cli_Cod´]; // pego o código do cliente
M_Video := ´VD´ + M_Video + ´.AVI´; // monto a string com o nome do arquivo
Mas e agora, como continuar. Tenho que trocar o nome do arquivo Vídeo.Avi para o conteúdo de M_Video, como se faz.
Obrigado
Neto
Anonymous
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Carnette
Use a função
RENAMEFILE(nomeantigo,novonome);
if RENAMEFILE(nomeantigo,novonome) then
ShowMessage(´Arquivo renomeado com sucesso´)
else
ShowMessage(´Ocorreu algum problema´);
RENAMEFILE(nomeantigo,novonome);
if RENAMEFILE(nomeantigo,novonome) then
ShowMessage(´Arquivo renomeado com sucesso´)
else
ShowMessage(´Ocorreu algum problema´);
Responder
Clique aqui para fazer login e interagir na Comunidade :)