Newsgroup: it.comp.appl.access
Titolo: Creare un backup dallo e dello stesso DB in uso

Salve, � possibile attraverso un pulsante creare un backup dallo e dello 
stesso database in uso e in un percorso specifico ?
Grazie 
 
 

 Grazie
 
Se usi FileSystemObject si... personalmente tuttavia, delegherei un
applicativo Esterno, dall'interno il rischio di avere cose sospese è
reale...!
 
@Alex

 Grazie
 
Ma certamente sï¿œ!
 
A mio avviso il piï¿œ bel backup ï¿œ XCOPY (introdotto col MS DOS 2.11), 
puï¿œ essere parametrizzato, ï¿œ salvato in chiaro, senza accorpare i file, 
e puï¿œ essere letto anche al lume di candela...
 
Call Shell("C:\BC.accdb C:\Dante\")
copia il file (corrente) BC.accdb nella directory Dante
 
Call Shell("C:\Dante\*.* C:\Dante1\  /DEY")
copia tutti i file (piï¿œ nuovi, comprese le directory vuote, senza 
chiedere ogni volta conferma) dalla directory Dante alla directory 
Dante1.
 
Bruno
 
 

 Grazie
Qui sotto il codice per zippare e DATI e Programma in formato zip
 
On Error GoTo err_Salva
  Dim retVal, strCmd As String, ZipName As String, Prog As String, Risposta, 
DataZip As String, Tipo As String, ErroreFileZip As Integer
 
  DataZip = Date: If Time < #6:00:00 PM# Then DataZip = Date - 1
  DataZip = InputBox("Controlla la DATA", "Backup", DataZip)
  If DataZip = "" Or DataZip = " " Then Exit Sub
 
  Risposta = InputBox("Imposta il Valore 1=Solo Dati 2=Tutti i Files", 
"Backup", 1)
  If Risposta = "" Or Risposta > 2 Then Exit Sub
  ZipName = " e:\F2GEST\F2DATI?.mdb": If Risposta = 2 Then ZipName = " 
e:\F2GEST\*.mdb"
 
  Risposta = InputBox("Imposta il Valore di destinazione", "Backup", 
"M:\F2DATI\")
  If Risposta = "" Or Risposta = " " Then Exit Sub
  strCmd = Risposta
 
  Prog = "c:\Programmi\Winzip"
  Tipo = strCmd + FormaT(DataZip, "ddmmyyyy") & ".zip"
Inizio:
  strCmd = Prog + "\winzip32.exe -a -ex " + Tipo + ZipName
  'strCmd = "winzip32.exe -a -ex " + strCmd + ZipName
  'MsgBox (strCmd)
  retVal = Shell(strCmd, vbHide)
 
exit_err_Salva:
  Exit Sub
 
err_Salva:
  If Err = 76 And ErroreFileZip = 0 Then Prog = "d:\programmi\winzip": 
ErroreFileZip = 1: Resume Inizio
  If Err = 76 And ErroreFileZip = 1 Then Prog = "e:\programmi\winzip": 
ErroreFileZip = 2: Resume Inizio
  If Err = 76 And ErroreFileZip = 2 Then Prog = "f:\programmi\winzip": 
ErroreFileZip = 3: Resume Inizio
  If Err = 76 And ErroreFileZip = 3 Then MsgBox ("Installa WinZip"), 16, 
"Backup": Resume Next
  MsgBox Error$
  'Resume exit_err_salva
  Resume Next
 
saluti
Graziano 
 
 

Caro Bruno, peccato che per� mi dice che non trova il file.... c'� qualcosa 
di sbagliato ? 
 
 

 di sbagliato ?
 
Il tuo file dove si trova?
Dammene il path completo...
 
Bruno
 
 

Allora io ho un database in C: che si chiama prova.mdb
Da questo db attraverso un pulsante gli do il seguente comando:  Call 
Shell("C:\prova.mdb C:\Prova\")
Quando eseguo il comando, mi dice che non trova il file...
 
 

 ha scritto:

Ehm, credo che manchi "xcopy" e i suoi parametri nel call shell
 
Ciao
 
-- 
Raido(R) (aka Odarg)
------------------------
immeritatamente_pll
 

 Ehm, credo che manchi "xcopy" e i suoi parametri nel call shell
 
Ma sï¿œ certo! non ho inserito XCOPY!
 
Call Shell("XCOPY C:\Prova.txt C:\Prova\ /DEY")
 
Bruno
 
 

Grazie Bruno,
adesso funziona, ma mi basta solo il parametro Y
Call Shell("XCOPY /Y C:\Prova.txt C:\Prova\")