como copiar arquivos em pasta com subpastas?

Delphi

14/07/2006

como copiar arquivos em pasta com subpastas?

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

Flaviocont

Curtidas 0

Respostas

Flaviocont

Flaviocont

14/07/2006

sobe


GOSTEI 0
Flaviocont

Flaviocont

14/07/2006

sobe


GOSTEI 0
Flaviocont

Flaviocont

14/07/2006

sobe


GOSTEI 0
Siam

Siam

14/07/2006

SH.pFrom := ´C:\PASTAORIGEM\*.*´+#0;


GOSTEI 0
Flaviocont

Flaviocont

14/07/2006

siam escreveu


SH.pFrom := ´C:\PASTAORIGEM\*.*´+#0;


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
Siam

Siam

14/07/2006

Bom, com essa função eu não conheço como fazer.
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
George_piaulino

George_piaulino

14/07/2006

O que posso sugerir é simples...

Use o TsearchRec;

Abraços

:wink:


GOSTEI 0
POSTAR