FILECOPY EM ARVORE DE PASTAS
Amigos,
Estou tentando fazer uma cópia de cd onde copio todo o conteúdo do cd: pastas, subpastas e arquivos. Para um lugar especÃÂÂfico.
Porém tenho que usar o Filecopy pois não posso exibir a tela de progresso do windows.
Nesse exemplo:
Só são copiados os arquivos externos. Já tentei fazer um loop dentro de outro, mas só consegui copiar o conteúdo das pastas.
Como resolver para copiar todos os arquivos até mesmo os mais internos?
Estou tentando fazer uma cópia de cd onde copio todo o conteúdo do cd: pastas, subpastas e arquivos. Para um lugar especÃÂÂfico.
Porém tenho que usar o Filecopy pois não posso exibir a tela de progresso do windows.
Nesse exemplo:
strNomeArq = Dir(Diretorio.List(i) & "\*.*", vbArchive)
While strNomeArq <> ""
FileCopy Diretorio.List(i) & "\" & strNomeArq, strSubPasta & "\" & strNomeArq
strNomeArq = Dir()
Wend Só são copiados os arquivos externos. Já tentei fazer um loop dentro de outro, mas só consegui copiar o conteúdo das pastas.
Como resolver para copiar todos os arquivos até mesmo os mais internos?
Cara, n tenho o código pronto aki, talvez alguém até te mande isso pronto e tal...mas o q vc pode fazer é o seguinte
Ligue um DirListBox com um FileListBox.
Faça um For no Dir, a partir do Path q vc desejacopiar
Assim toda vez que o path do DirListBox, for mudado, ele preenche o FileListoBox e atualizaa lista de arquivos. após isso..basta fazer um for no FileListBox e tera o nome de todos arquivos para copiar
entendeu ae?
Ligue um DirListBox com um FileListBox.
Faça um For no Dir, a partir do Path q vc desejacopiar
Assim toda vez que o path do DirListBox, for mudado, ele preenche o FileListoBox e atualizaa lista de arquivos. após isso..basta fazer um for no FileListBox e tera o nome de todos arquivos para copiar
entendeu ae?
Tópico encerrado , respostas não são mais permitidas