Backup

martedì 30 novembre 2010 - 17.56
Tag Elenco Tags  Access (.mdb)

Se2 Profilo | Junior Member

Ciao ho questo codice che mi permette di fare una copia di sicurezza del database access e funziona ma se varia la lettera G:\ della sorgente mi
Io vorrei che se non trova la sorgente G:\ salti il comando senza darmi errore E' possibile? Grazie

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Hour(Time) >= 8 Then
fso.CopyFile "G:\Database cd\Database cd\Database cdteca.mdb", _
"C:\Backup_database_cdteca\Backup_database_cdteca" & Format(Time, " hh-mm-ss") & Format(Date, " dd-mm-yyyy") & ".mdb"
Set fso = Nothing
'DoCmd.CancelEvent
End If

alx_81 Profilo | Guru

>Ciao
Ciao!

>Io vorrei che se non trova la sorgente G:\ salti il comando senza
>darmi errore E' possibile?
puoi controllare prima se il file esiste, guarda questo esempio:
http://www.w3schools.com/asp/met_fileexists.asp

>Grazie
di nulla!
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

Se2 Profilo | Junior Member

Codice definitivo
Private Sub Form_Current()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("C:\") Then
Cancel = True
Else
fso.CopyFile "C:\B.mdb", _
"C:\B" & Format(Time, " hh-mm-ss") & Format(Date, " dd-mm-yyyy") & ".mdb"
Set fso = Nothing
End If
End Sub
CIAO e grazie ancora!!!
Ho trovato questo codice...


Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Me.stpFolderBckOrigine) Then
MsgBox "Cartella di Origine non Esiste...", vbCritical, "Error"
GoTo errorMyBck
End If

Prova ad elaborarlo..vediamo un po' se ci riesco con le mie forze
Ti faccio sapere
Grazie ciao

Grazie ma non riesco a farlo funzionare...
ho scritto
Dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists("E:\asp\introduction.asp") = True Then
response.write ("File c:\asp\introduction.asp exists!")
Else
response.write ("File c:\asp\introduction.asp does not exist!")
End If
Set fs = Nothing
End Sub

e mi evidenzia in giallo Set fs = Server.CreateObject("Scripting.FileSystemObject") e mi dice oggetto neccessario

In questo caso lui verifica l'esistenza di un file invece a me servirebbe che controllasse solo la presenza della sorgente G:\
Mi puoi dare una mano? Di vba sono "0"
Grazie
Ciao

alx_81 Profilo | Guru

>In questo caso lui verifica l'esistenza di un file invece a me
>servirebbe che controllasse solo la presenza della sorgente G:\
>Mi puoi dare una mano? Di vba sono "0"
ehm.. a quale quesito devo rispondere? Quest'ultimo puoi farlo come nell'esempio qui:
http://www.w3schools.com/asp/showfile.asp?filename=demo_driveexists

però è per ASP.. in vba fai senza la server.createobject, dovresti avere già il riferimento.
Se non lo hai, devi includerlo nel progetto (menu project-->add reference.. e cerca qualcosa tipo "Scripting Runtime").

Se si tratta di VBScript invece ma non in ASP puoi usare solamente la CreateObject.

--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

Se2 Profilo | Junior Member

Grazie ma come ti ho scritto nel precedente post aggiornato ho risolto. Grazie ancora
Ciao

alx_81 Profilo | Guru

>Grazie ma come ti ho scritto nel precedente post aggiornato ho risolto.
ah sì? scusa ma proprio non ho visto..
ok, meglio così! ciao!

--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

Se2 Profilo | Junior Member

Grazie a te!! Ciao!!
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5