Newsgroup: it.comp.appl.access
Titolo: Dificoltà Backup

Ciao a tutto il NG,
ho provato ad utilizzare il programma creato da Franco Monferrino. 
Convertendolo da AC97 ad AC2000 non ha dato problemi esegue il Backup
correttamentema, la difficoltà si presenta quando importo la maschera
ed i moduli all'interno di un progetto eseguendolo mi da una finestra
con  il seguente messaggio d'errore:
Windows Script Host
Nessuna estensione di file in "D:\Fatturazione."
Premetto che ho provato sia  il DB con le Tabelle collegate, che
all'interno del DB stesso.
Volevo chiedervi se qualcuno ha già avuto lo stesso problema e se sa
dirmi come risolverlo.
PS: Ho controllato i riferimenti del VBA e sono identici al programma
di Franco.
Grazie
Michele

 ha scritto nel messaggio
news:803dba50.03061...@posting.google.com...

Dall'errore non sembra un problema di riferimenti; sembra che non ci sia il
nome del file ("D:\Fatturazione.") per il punto finale dopo Fatturazione.
Sarebbe utile che inviassi la parte del codice incriminato...
Ciao.
--
Sergio MAZZA

...

Dall'invio del messaggio ho provato a fare dei tentativi sia col
programma originale e sia col importazione del codice e della Form, e
ho notato che il programma funziona regolarmente se si trova
all'interno di una unità diretta esempio:
D:\Back.mdb o D:\Gestione Fatture.mdb
invece se creo una cartella all'interno di una unità
Esempio:
D:\Backup\Back.mde o D:\Fatture\Gestione Fatture.mdb
non funziona e appare il messaggio d'errore esposto sopra.
credo che il problema sia nel modulo dove crea il percorso ma non
riesco anche usando la visualizzazione passo passo ad individuare
l'errore.
parte del Codice 
Function creaBackupDB()
Dim riga(1 To 12) As String
Dim fileLDB As String
Dim confermaMsg As String
On Error GoTo Err_creaBackupDB
confermaMsg = "Il database verrà chiuso e verrà effettuata una copia
di backup" & vbCrLf & _
              "sia dei dati residenti sul server che dell'applicazione
locale." & vbCrLf & _
              "Prima di proseguire accertarsi che nessun altro utente
abbia il" & vbCrLf & _
              "database aperto. " & vbCrLf & _
              "Vuoi continuare?"
If Conferma(confermaMsg) Then
chiudiTutto
fermaBackup = False
nomeBackEnd = "nessuno"
CompattaBE
If fermaBackup = True Then Exit Function
If Dir(PathCorrente & "creaBackup.vbs") = "creaBackup.vbs" Then
Kill PathCorrente & "creaBackup.vbs"
End If
fileLDB = left(CurrentDb.name, Len(CurrentDb.name) - 3)
    riga(1) = "Dim fso, file1"
    riga(2) = "Set fso = CreateObject(""Scripting.FileSystemObject"")"
    riga(3) = "Do While fso.FileExists(""" & fileLDB & "ldb"")"
    riga(4) = "Loop"
    riga(5) = "if fso.FileExists(""" & nomeFrontEnd & """) Then"
    riga(6) = "fso.DeleteFile(""" & nomeFrontEnd & """)"
    riga(7) = "End if"
    riga(8) = "Set file1 = fso.GetFile(""" & CurrentDb.name & """)"
    riga(9) = "file1.Copy(""" & nomeFrontEnd & """)"
    riga(10) = "msgbox ""Nome BE: " & nomeBackEnd & """ & vbCrLf &
""Nome FE: " & nomeFrontEnd & """"
    riga(11) = "Set file1 = Nothing"
    riga(12) = "Set fso = Nothing"
 
    Open PathCorrente & "creaBackup.vbs" For Output As #1
        Print #1, riga(1)
        Print #1, riga(2)
        Print #1, riga(3)
        Print #1, riga(4)
        Print #1, riga(5)
        Print #1, riga(6)
        Print #1, riga(7)
        Print #1, riga(8)
        Print #1, riga(9)
        Print #1, riga(10)
        Print #1, riga(11)
        Print #1, riga(12)
        Close #1
        Shell "WSCRIPT.exe " & PathCorrente & "creaBackup.vbs",
vbNormalFocus
        DoCmd.Quit
End If
Exit_creaBackupDB:
    Exit Function
Err_creaBackupDB:
    MsgBox err.Description
    Resume Exit_creaBackupDB
End Function
Ciao 
Michele

 ha scritto nel messaggio
news:803dba50.03062...@posting.google.com...

Ma "PathCorrente" dove viene assegnato?
Ciao.
--
Sergio MAZZA