Fórum como copiar arquivos em pasta com subpastas? #325374
14/07/2006
0
minha duvia é a seguinte eu quero copiar arquivos *.dbf que estao em uma pasta com varias subpastas ex.
c:\pastaorigem\DADOS1\ARQUIVO???.DBF
c:\pastaorigem\DADOS2\ARQUIVO???.DBF
c:\pastaorigem\DADOS3\ARQUIVO???.DBF
c:\pastaorigem\DADOS4\ARQUIVO???.DBF
c:\pastaorigem\DADOS5\ARQUIVO???.DBF
c:\pastaorigem\DADOS6\ARQUIVO???.DBF
E ASSIM POR DIANTE
EU ENCONTREI ESSA ROTINA MUITO BOA MAS ELA SO COPIA DE
c:\pastaorigem\DADOS1\ARQUIVO???.DBF
var SH:SHFILEOPSTRUCT;
begin
Button6.Enabled:=false;
FillChar(SH, SizeOf(SH), 0);
SH.Wnd := Handle;
SH.wFunc := FO_Copy;
SH.pFrom := ´C:\PASTAORIGEM\dados1\arquivo???.DBF´+#0;
SH.pTo := ´C:\PASTA DESTINO\´+0;
SH.fFlags := FOF_Allowundo;
SHFileOperation(SH);
Button6.Enabled:=true;
end;
auguem pode me dar uma dica onde eu consiga copiar os arquivos das outras pastas
Flaviocont
Curtir tópico
+ 0Posts
17/07/2006
Flaviocont
Gostei + 0
18/07/2006
Flaviocont
Gostei + 0
04/08/2006
Flaviocont
Gostei + 0
07/08/2006
Siam
Gostei + 0
07/08/2006
Flaviocont
o problema é q eu nao quero todos os arquivos das pastas e subpastas. eu so quero os arquivos das pastas e subpastas com com coringa e com extencao dbf ex. ARQUIVO???.DBF
Gostei + 0
08/08/2006
Siam
Vc pode utilizar o xcopy do dos:
WinExec(´cmd /k xcopy /s/y C:\PASTAORIGEM\dados1\arquivo*.DBF C:\PASTA DESTINO´, SW_Hide);
Gostei + 0
08/08/2006
George_piaulino
Use o TsearchRec;
Abraços
:wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)