Copiar ao criar diretorio

Delphi

28/10/2005

Pessoal tenho o seguinte procedimento:...

procedure TFrmEmpresa.Criar;
Var
Diretorio :String;
begin
Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´;
if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´+mskanobase.text+´\´;

if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

end;

... onde ele cria um diretorio (ex:c:\wincont\emp-001\), bem o que eu quero é que dentro deste procedimento que ao criar o diretorio tb copie um arquivo que esta em c:\wincont\precla.db para o diretorio criado, que ficaria assim c:\wincont\emp-001\precla.db, tentei colocar isto:


procedure TFrmEmpresa.Criar;
Var
Diretorio :String;
begin
Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´;
if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);

CopyFile(´c:\wincont\precla.db´,´c:\wincont\EMP-´+MskCodigo.text+´\precla.db´,TRUE);


Diretorio := ´\wincont\EMP-´+MskCodigo.text+´\´+mskanobase.text+´\´;

if not DirectoryExists(Diretorio) then
ForceDirectories(Diretorio);


Mas não deu certo.


P.S. MSKCODIGO.TEXT É O CODIGO CRIADO. EX 001 OU 002 OU 003, ETC.


Eva

Eva

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

28/10/2005

Veja o exemplo q elaborei aqui. FUNCIONOU CERTINHO

CreateDir(´NovoDiretorio´);
   CopyFile(´arquivo.txt´,´NovoDiretorio/arquivo.txt´,true);



GOSTEI 0
Eva

Eva

28/10/2005

O q realmente quero é q seja dentro do procedimento acima, pois ele cria o seguinte ...emp-001..., é justamente o MSKCODIGO.TEXT, seja o 001 entende ai ele vai copiar para o 001 se for criado a empresa 001 ou para o 002 se for criada a empresa 002 e assim sucessivamente.


GOSTEI 0
POSTAR