FILECOPY PARA VARIOS ARQUIVOS
Saudações,
Preciso utilizar o filecopy para copiar os arquivos pois no programa não pode aparecer a tela do windows mostrando quais arquivos estão sendo copiados.
Quero copiar todo o conteúdo do cd, mas estou tomando erro de bad file ao colocar o seguinte código:
filecopy "e:\*.*", "c: este\"
A outra forma FLOP.fFlags = FOF_ALLOWUNDO não serve pois sempre mostra a tela do windows.
O que quero é copiar todos os arquivos do cd sem me mostrar a ingrata da tela de cópia do windows.
Desde já grato!
Preciso utilizar o filecopy para copiar os arquivos pois no programa não pode aparecer a tela do windows mostrando quais arquivos estão sendo copiados.
Quero copiar todo o conteúdo do cd, mas estou tomando erro de bad file ao colocar o seguinte código:
filecopy "e:\*.*", "c: este\"
A outra forma FLOP.fFlags = FOF_ALLOWUNDO não serve pois sempre mostra a tela do windows.
O que quero é copiar todos os arquivos do cd sem me mostrar a ingrata da tela de cópia do windows.
Desde já grato!
Dim Arquivos as String
CaminhoCD = Dir("e:\*.*")
While Arquivos <> ""
filecopy "e:\" & Arquivos, "c: este\"
Arquivos = Dir
WendTenta da forma acima.
Ou com um FileLIstBox
File1.Path = "E:\"
PathDestino = "C:\Teste\"
For X = 0 to File1.ListCount - 1
Filecopy File1.Path & File1.List(X); PathDestino & File1.List(X)
Next X
Escolha ae e boa sorte
Tópico encerrado , respostas não são mais permitidas