copiare il database [vb6]

[albadur]

salve vorrei sapere come risolvere questo problema:

io ho un'applicazione scritta in vb6 che si interlaccia con database di tipo access chamato dati.mdb, situato rispetto all'applicazione in una sottocartella chiamata appunto database.

io vorrei fare in modo che il programma crei una copia di backup del database rinominandolo nell'estensione quando viene lanciato, naturalmente, mettendo un controllo sulla data, questo dovrebbe accadere una volta sola al giorno...ho una mezza idea su come fare il controllo ma che sintassi devo utilizzare per copiare e rinominare il database ?

aiut!!!!!!!por favor, thnks!!!

[ladyBlu]

dim fileBackUp as string, fileSorgente as stirng, miaData as string

miaData =  Replace(CStr(Date), "/", "_") 
fileBackUp = fileSorgente & "_backUp_" & miadata & ".mdb" 

If Dir(fileBackUp) = "" Then  'se non esiste lo crea
   Set mioFileSystem = CreateObject("Scripting.FileSystemObject")
   mioFileSystem.copyfile fileSorgente, fileBackUp
End If

sulla data devi fare il replace perchè il carattere "/" non è valido.
poi imposti il percorso del file di backup e controlli se esiste.
se non c'è lo crei.

[darkblOOd]

Originariamente inviato da albadur
salve vorrei sapere come risolvere questo problema:

io ho un'applicazione scritta in vb6 che si interlaccia con database di tipo access chamato dati.mdb, situato rispetto all'applicazione in una sottocartella chiamata appunto database.

io vorrei fare in modo che il programma crei una copia di backup del database rinominandolo nell'estensione quando viene lanciato, naturalmente, mettendo un controllo sulla data, questo dovrebbe accadere una volta sola al giorno...ho una mezza idea su come fare il controllo ma che sintassi devo utilizzare per copiare e rinominare il database ?

aiut!!!!!!!por favor, thnks!!!

visto che si tratta di access..basta fare una copia del file .mdb e lo rinomini come .bkp per esempio...

[albadur]

ciao,

ho provato a fare come mi hai suggerito ho scritto questo codice:

Dim fileBackUp As String, fileSorgente As String, miaData As String
Dim nomefile As String

fileSorgente = "utenze.mdb"

nomefile = "utenze"

miaData = Replace(CStr(Date), "/", "_")

fileBackUp = nomefile & "_backUp_" & miaData & ".mdb"

'MsgBox fileBackUp

If Dir(fileBackUp) = "" Then 'se non esiste lo crea
Set mioFileSystem = CreateObject("Scripting.FileSystemObject")
mioFileSystem.copyfile fileSorgente, fileBackUp
End If


ma mi da errore su
mioFileSystem.copyfile fileSorgente, fileBackUp

dicendo che non trova il file....bo!

[albadur]

ho risolto....grazie 10000!!!!!!!!!!!!!!!!!!!!!!

[albadur]

Scusate ma....ho ripescato questo vecchio post per chiedere un'altra cosa:

come posso modificare il codice che mi è stato suggrito per fare in modo da eliminare le copie di backup più vecchie che mi sono generato???

che ne so...lasciare un margine 4 o 5 copie ed eliminare quelle + vecchie???


gracias!!

[JamesD]

Se hai salvato anche la data di ognuno come ti era stato consigliato prendi i file uno per uno con la dir controlli la data e fai il kill dei più vecchi.

[albadur]

...e come faccio a controllare i file uno per uno?...quale è la condizione che devo porre nel ciclo while che andrò a scrivere?