Facciamo uno pių semplice :adhone:
Metti questo riferimento Riferimento Microsoft Scripting RunTime
codice:
Dim fso As New FileSystemObject
Dim fl1 As File
Set fl10 = fso.GetFile("c:\pippo.mdb") //Cosa copiare
fl10.Copy "D:\" //Dove copiare
:metallica