Copiar uma Pasta Inteira de Arquivos

[mfelis]

Olá.

Estou desenvolvendo um Sistema de Update nele eu baixo um arquivo ZIP depois extrio e o quero copiar os arquivos e pastas do arquivo zip na pasta do sistema e assim substituindo os arquivos.

[Marcos Guedes]

Tente isto:

Código:

copiatudo("C:\origem","C:\destino")
*!*
PROCEDURE copiatudo AS void
   LPARAMETERS origem AS STRING, destino AS STRING
   *!*
   WAIT WINDOW "Copiando..." NOWAIT NOCLEAR
   *!*
   LOCAL objdel AS "Scripting.FileSystemObject"
   m.objdel = NEWOBJECT("Scripting.FileSystemObject")
   m.objdel.copyfolder(ADDBS(m.origem)+"*.*", m.destino)
   m.objdel.copyfile(ADDBS(m.origem)+"*.*", m.destino)
   m.objdel = NULL
   *!*
   WAIT CLEAR
ENDPROC

Obs.: Certifique-se de que ambos os caminhos existem!

[hugo]

boa marcao!

sempre prestativo!

[mfelis]

Obrigado.Estou Tentando.

[mfelis]

Resolveu.Thanks