Funzione FSO.CopyFile e data dell'operazione

grottafelix · 10 Ott 2006

<%
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile server.mappath("db.mdb"), server.mappath("db_backup.mdb")
file = server.mappath("db_backup.mdb")

if fso.fileExists(file) then
response.write "Backup riuscito correttamente!"
else
response.write "Backup non riuscito! Ripetere operazione.."
end if
set fso = nothing

%>
<html>

 
<a href="javascript: window.close();'" onClick="altezza();">Chiudi questa pagina</a>

</html>

Con questo script effettuo la copia di backup di un db access presente sul server...

mi cheidevo..è possibile che nella stessa pagina possa apparire la data di ultimo backup? se si come faccio?

grottafelix · 10 Ott 2006

mmm
ma pensadoci bene..io effettuo il backup cliccando sul lin kche porta a questa pagina...quindi prima che mi apra la pagina non saprò mai quando è stato fatto l'ultima copia di backup..poichè quando aprirà la pagina mi dirà che è oggi

quindi bisognerebbe che ci sia una pagina prima che mi dica tipo:

L'ultima copia di backup è stat fatta il 2/6/2006 e poi un link tipo: clicca qui per effettuare una copia di backup con data odierna.

ma come diavolo si fa

VVoVe:

PoLe · 10 Ott 2006

Eh eh, è la tua specialità complicarti la vita fra loop, for ecc.. eh Felix?!?!

Semplicemente aggiungi allo script che fa il backup uno script che a backup ultimato salvi su un file di testo la data corrente.
Poi, quando vorrai far apparire la data dell'ultimo backup basterà leggere quella salvata nel file di testo, che non cambierà mai fino all'esecuzione del backup successivo

:byebye:

grottafelix · 10 Ott 2006

PoLe ha scritto:
Eh eh, è la tua specialità complicarti la vita fra loop, for ecc.. eh Felix?!?!

Semplicemente aggiungi allo script che fa il backup uno script che a backup ultimato salvi su un file di testo la data corrente.
Poi, quando vorrai far apparire la data dell'ultimo backup basterà leggere quella salvata nel file di testo, che non cambierà mai fino all'esecuzione del backup successivo

:byebye:

ok grazie pole.

ma in pratica che se fa? :ilpirata: non ho mai fatto un tubo con la scrittura sui file di testo :incazz2:

PoLe · 11 Ott 2006

Ti butto giù due righe sul momento, perchè son di fretta, comunque dovrebbero funzionare

Per quanto riguarda la scrittura della data sul file di testo devi fare così (subito dopo l'esecuzione del backup):

<%
dim fs,path,a

Set fs = CreateObject("Scripting.FileSystemObject")
path = server.mappath("cartella/nome_file.txt")
Set a = fs.CreateTextFile(path, True)
a.WriteLine(Date())
a.Close
%>

Questo andrà a scrivere la data in cui è stato effettuato il backup nel file nome_file.txt

Per poi andare a leggere la data, per quando vorrai far apparire la data ultimo backup, farai:

<%
dim fs,path,a,data_bkp

Set fs = CreateObject("Scripting.FileSystemObject")
path = server.mappath("cartella/nome_file.txt")
Set a = fs.OpenTextFile(path)
data_bkp = a.ReadLine
a.close
Set a = fs.CreateTextFile(path, True)
a.WriteLine(data_bkp)
a.Close
%>
Data ultimo backup: <%=data_bkp%>

Se hai problemi fammi sapere!
:byebye:

grottafelix · 11 Ott 2006

Pole tu si nu genio :ilpirata:

funziona tutto alla perfezione!

Grazie compare!

p.s. se volessi far uscire anche l'ora oltre la data è possibile? :beer:

PoLe · 11 Ott 2006

grottafelix ha scritto:
p.s. se volessi far uscire anche l'ora oltre la data è possibile? :beer:

Seguro amigo

Modifica lo script che va a scrivere la data sul file di testo (quello in blu per intenderci) con la parte in rosso:

<%
dim fs,path,a

Set fs = CreateObject("Scripting.FileSystemObject")
path = server.mappath("cartella/nome_file.txt")
Set a = fs.CreateTextFile(path, True)
a.WriteLine(Date() & " alle ore " & Time())
a.Close
%>

SaLuT!
:byebye:

grottafelix · 11 Ott 2006

ottimo :elvis:

grottafelix · 12 Ott 2006

dovre utilizzare lo stesso script nella stessa pagina ma per due database diversi..

ho fatto cosi

Codice:

<a href="../../fpdb/backup_moduli.asp">Backup Database Moduli</a>

<%
dim fs,path,a,data_bkp
Set fs = CreateObject("Scripting.FileSystemObject")
path = server.mappath("../../fpdb/database_moduli.txt")
Set a = fs.OpenTextFile(path)
data_bkp = a.ReadLine
a.close
Set a = fs.CreateTextFile(path, True)
a.WriteLine(data_bkp)
a.Close
%>

Data ultimo backup: <%=data_bkp%>

<a href="../../fpdb/backup_suap.asp">Backup Database Sap</a>

<%
dim fsx,pathx,ax,data_bkpx
Set fsx = CreateObject("Scripting.FileSystemObject")
pathx = server.mappath("../../fpdb/database_sap.txt")
Set ax = fsx.OpenTextFile(path)
data_bkpx = ax.ReadLine
ax.close
Set ax = fs.CreateTextFile(pathx, True)
ax.WriteLine(data_bkpx)
ax.Close
%>

Data ultimo backup: <%=data_bkpx%>

ma nel secondo "Data ultimo backup: <%=data_bkpx%>" mi segna la data del primo, nonostante scriva la data giusta nel file database_sap.txt

PoLe · 12 Ott 2006

grottafelix ha scritto:
...ma nel secondo "Data ultimo backup: <%=data_bkpx%>" mi segna la data del primo, nonostante scriva la data giusta nel file database_sap.txt

E direi compà, guarda un pò che ti ho aggiunto qui sotto in rosso e vedrai perchè non ti funge

Codice:

...
...
<a href="../../fpdb/backup_suap.asp">Backup Database Sap</a>

<%
dim fsx,pathx,ax,data_bkpx
Set fsx = CreateObject("Scripting.FileSystemObject")
pathx = server.mappath("../../fpdb/database_sap.txt")
Set ax = fsx.OpenTextFile(path[B][COLOR="Red"]x[/COLOR][/B])
data_bkpx = ax.ReadLine
ax.close
Set ax = fs.CreateTextFile(pathx, True)
ax.WriteLine(data_bkpx)
ax.Close
%>

Data ultimo backup: <%=data_bkpx%>

:byebye:

grottafelix · 13 Ott 2006

PoLe ha scritto:

E direi compà, guarda un pò che ti ho aggiunto qui sotto in rosso e vedrai perchè non ti funge

Codice:

...
...
<a href="../../fpdb/backup_suap.asp">Backup Database Sap</a>

<%
dim fsx,pathx,ax,data_bkpx
Set fsx = CreateObject("Scripting.FileSystemObject")
pathx = server.mappath("../../fpdb/database_sap.txt")
Set ax = fsx.OpenTextFile(path[B][COLOR="Red"]x[/COLOR][/B])
data_bkpx = ax.ReadLine
ax.close
Set ax = fs.CreateTextFile(pathx, True)
ax.WriteLine(data_bkpx)
ax.Close
%>

Data ultimo backup: <%=data_bkpx%>

:byebye:

Che pirla

per una x..martin perse la coppa

Cerca

Cerca

Funzione FSO.CopyFile e data dell'operazione

grottafelix

Utente Attivo

grottafelix

Utente Attivo

PoLe

MRW Moderator

grottafelix

Utente Attivo

PoLe

MRW Moderator

grottafelix

Utente Attivo

PoLe

MRW Moderator

grottafelix

Utente Attivo

grottafelix

Utente Attivo

PoLe

MRW Moderator

grottafelix

Utente Attivo

Discussioni simili