Executar este comando no DOS.....
06/03/2006
0
COPY SFP00.TXT+SFP10.TXT+SFP30.TXT+SFP32.TXT+SFP90.TXT A:\SEFIP.RE
legal...
abraço.
fabio
Cavalcanti.fabio
Posts
06/03/2006
Adriano Santos
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
I : Integer;
PastaOrigem : String;
PastaDestino : String;
begin
with Dados do
begin
for I := 0 to ListBox1.Items.Count-1 do
begin
wFunc := FO_COPY;
PastaOrigem := ´C:\´;
PastaDestino := ´C:\Temp\´;
pFrom := PChar(PastaOrigem + ListBox1.Items[I]);
pTo := PChar(PastaDestino + ListBox1.Items[I]);
fFlags := FOF_ALLOWUNDO or FOF_FILESONLY or FOF_RENAMEONCOLLISION or FOF_NOCONFIRMATION;
SHFileOperation(Dados);
end;
end;
end;
06/03/2006
Massuda
Para fazer em Delphi, use dois TStringList, use um para conter o resultado (concatenação dos arquivos) e outro para ler cada arquivo (use .LoadFromFile); use .AddStrings para somar o conteúdo de cada arquivo no resultado e finalmente salve o resultado (use .SaveToFile).
06/03/2006
Adriano Santos
Não sei o que deseja fazer, mas dependendo do que for a dica do Massuda ainda está mais simples do que a minha. A minha usa o Shell como pode notar.
06/03/2006
Cavalcanti.fabio
valeu...
06/03/2006
Cavalcanti.fabio
WinExec(PChar(´command.com /c COPY ´+diretoriogeral+´SFP00.TXT+SFP10.TXT+SFP30.TXT+SFP32.TXT+SFP90.TXT A:\SEFIP.RE´),SW_SHOWNORMAL);
mas so esta copiando o SFPA00.TXT
o que podera estar acontecendo...
06/03/2006
Cavalcanti.fabio
complementando
06/03/2006
Massuda
06/03/2006
Cavalcanti.fabio
WinExec(PChar(´command.com /c COPY ´+diretoriogeral+´SFP00.TXT+SFP10.TXT+SFP30.TXT+SFP32.TXT+SFP90.TXT A:\SEFIP.RE´),SW_SHOWNORMAL);
apos o COPY tem uma variavel diretoriogeral onde esta setado para O:\SISTEMAS\SFPA e apos a variavel esta todos os TXT´s que desejo in cluir dentro de SEFIP.RE que sera gravado em A:\
era esta a sua informação anterior...ou não estou entendendo...
valeu.
06/03/2006
Massuda
WinExec(PChar(´command.com /c COPY ´+diretoriogeral+´SFP00.TXT+´+diretoriogeral+´SFP10.TXT+´+diretoriogeral+´SFP30.TXT+´+diretoriogeral+´SFP32.TXT+´+diretoriogeral+´SFP90.TXT A:\SEFIP.RE´),SW_SHOWNORMAL);
06/03/2006
Cavalcanti.fabio
ShellExecute(0,nil, PChar(DirectoryListBox.Directory+´\SFPCopy2.bat´),´´,nil,Sw_shownormal);
onde os arquivos TXT (nomes) estão agora em um .BAT e e executado pelo shell...perfeito...funcionou que foi uma beleza...fez a junção como eu queria dos arquivos...
valeu.
grato,
fabio
Clique aqui para fazer login e interagir na Comunidade :)
