Cita:
Iniciado por lokoman 
hola!
Aqui tienes para sincronizar directorios:
Sub synchronizedirectorytrees(byval sourcedir as string, byval destdir as string, optional byval twowaysync as boolean)
dim fso as new scripting.filesystemobject
dim sourcefld as scripting.folder
dim destfld as scripting.folder
dim fld as scripting.folder
dim col as new collection
on error resume next
set sourcefld = fso.getfolder(sourcedir)
set destfld = fso.getfolder(destdir)
if err then
fso.copyfolder sourcedir, destdir
exit sub
end if
synchronizedirectories sourcedir, destdir, twowaysync
if right$(sourcedir, 1) <> "\" then sourcedir = sourcedir & "\"
if right$(destdir, 1) <> "\" then destdir = destdir & "\"
for each fld in sourcefld.subfolders
col.add fld.name, fld.name
synchronizedirectorytrees fld.path, destdir & fld.name, twowaysync
doevents
next
if twowaysync then
for each fld in destfld.subfolders
if col(fld.name) = "" then
fso.copyfolder fld.path, sourcedir & fld.name
end if
next
end if
end sub
para usarlo:
Call synchronizedirectorytrees(txtsource, txtdestination, false)
no utilices código con fines dañinos.
me puedes explicr un poco el codigo no lo entiendo, me dio un error "No se ha definido el tipo definido por el usuario", que referencias o objeto tengo que agregar?
no es con fines dañinos, solo informativos