Backup

martedì 30 novembre 2010 - 17.56

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags Access (.mdb)

Se2 Profilo | Junior Member

59 messaggi | Data Invio: mar 30 nov 2010 - 17:56

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

8.814 messaggi | Data Invio: mar 30 nov 2010 - 19:33

>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

59 messaggi | Data Invio: mer 1 dic 2010 - 08:40

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

8.814 messaggi | Data Invio: mer 1 dic 2010 - 10:36

>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

59 messaggi | Data Invio: mer 1 dic 2010 - 10:46

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

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: mer 1 dic 2010 - 10:48

>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

59 messaggi | Data Invio: mer 1 dic 2010 - 10:54

Grazie a te!! Ciao!!

Torna su

Stanze Forum

Elenco Threads

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 !