[VB6] Fare copia degli archivi in una cartella

[angelicab]

ciao!
nel mio programma vorrei inserire una procedura che faccia una copia del file archivio.mdb sul desktop o su un'altra cartella selezionata dall'utente ..

cosa dovrei fare??

ho inserito una commondialog per il salvataggio ..

'finestra salva - commondialog
CommonDialog1.Flags = cdlOFNHideReadOnly Or cdlOFNExplorer
CommonDialog1.Filter = "File di archivio (proassist.mdb)|proassist.mdb"
CommonDialog1.CancelError = True
CommonDialog1.InitDir = "c:\"
CommonDialog1.ShowSave

ma poi ??

come faccio a recuperare il file da salvare??

[LMondi]

Ciao angelicab,
Se vuoi potrei postare una routine che compatta il DB e ne fa una copia di backup.
Resto in attesa.

[angelicab]

a me basta farne una copia ..
però se ti va puoi postare pure ..

potrebbe essere utile anche a qualcun'altro ..

[LMondi]

Se devi semplicemente fare una copia del file usa l'istruzione
FileCopy:

In questo esempio l'istruzione FileCopy viene utilizzata per copiare un file su un altro. Nell'esempio, FILEORIG è un file che contiene dati.

Dim SourceFile, DestinationFile
SourceFile = "FILEORIG"   ' Definisce il nome del file di origine.
DestinationFile = "FILEDEST"   ' Definisce il nome del file di destinazione.
FileCopy SourceFile, DestinationFile   ' Copia il file di origine sul file di destinazione.