yo he realizado cosas por el estilo pero hace algun tiempo que no realizo algo asi. por lo cual, no me acuerdo y me tocaria revizar proyectos pasados. sin embargo, si tienes espiritu luchador, te envio la funcion que puede realizar esto y tratar de resolverlo.
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.copyfile App.Path & "\eVitae.mdb", Dir1.Path & "\" & Trim(Text1.Text) & ".mdb", True
el proceso anterior se refire a copiar un archivo.
Esta funcion es compleja y no es nada faacil. si te interesa trabajarla bien. ya que trabaja directamente propiedades del sistema de arhivos. por lo tanto, debes tener mucho cuidado con ella. al referirme a la funcion, especifica es el Scripting.FileSystemObject.
creo que debe haber una funcion mas simple pero menos funcional.
Bueno ahi te va. si encuentro las otras, te escribo. sin embargo trabajale un poco
Andres-Loun_in
Medellin. Colombia
Hey como va el clima por alla?