Funzione FSO.CopyFile e data dell'operazione

grottafelix

Utente Attivo
5 Mar 2003
2.410
2
38
45
Parco chiuso -
www.girsms.com
<%
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 "<p align='center'><b>Backup riuscito correttamente!</b></p>"
else
response.write "<p align='center'><b>Backup non riuscito! Ripetere operazione..</b></p>"
end if
set fso = nothing

%>
<html>
<p align="center">
<br /><br />
<a href="javascript: window.close();'" onClick="altezza();">Chiudi questa pagina</a>
</p>
</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

Utente Attivo
5 Mar 2003
2.410
2
38
45
Parco chiuso -
www.girsms.com
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 :confused: :confused:

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 :eek:VVoVe:
 

PoLe

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
Eh eh, è la tua specialità complicarti la vita fra loop, for ecc.. eh Felix?!?! :D

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

Utente Attivo
5 Mar 2003
2.410
2
38
45
Parco chiuso -
www.girsms.com
Eh eh, è la tua specialità complicarti la vita fra loop, for ecc.. eh Felix?!?! :D

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

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
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:
 

PoLe

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
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

Utente Attivo
5 Mar 2003
2.410
2
38
45
Parco chiuso -
www.girsms.com
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

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
...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

Utente Attivo
5 Mar 2003
2.410
2
38
45
Parco chiuso -
www.girsms.com
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 :D :D
 
Discussioni simili
Autore Titolo Forum Risposte Data
Lino80 [Retribuito] Cerco programmatore php per modifica/inserimento funzione/valori da un plugin importer wordpress Offerte e Richieste di Lavoro e/o Collaborazione 0
R Variabile non risconosciuta dentro una funzione PHP 1
P Implementazione funzione FileReader Javascript 0
P Funzione copia multipla. Javascript 2
P Funzione jQuery Ajax invio file a php jQuery 1
A Funzione read URL PHP 6
F Funzione Glob - ricerca file contenente una parola PHP 1
A Mail con funzione mail() riconosciute come spam PHP 9
M Utilizzare la funzione mysql_num_rows() in PHP 5 PHP 3
A funzione iconv () non mi funziona PHP 4
D Come usare funzione php PHP 6
Y verificare condizione dopo esecuzione della funzione Programmazione 0
IClaude Funzione Javascript Javascript 8
A Funzione share come modificarla Social Media Marketing 0
L funzione onclik con seno e coseno non va Javascript 3
L funzione onclick non va Javascript 26
G modifica corretta funzione da eregi() a preg_match() PHP 3
Shyson Modificare funzione php PHP 15
L pdo (stampare un valore con ritorno a funzione) PHP 0
elpirata Funzione conversione da minuti in ore Javascript 0
@ [MS Access] Funzione Iif..is null... Database 0
F Funzione deprecata in PHP7 PHP 1
G [MS Access] Funzione ARROTONDA non definita nell'espressione MS Access 1
max1974 [Javascript] Funzione Errata procedura Javascript 2
pjtertdj Visualizzazione dati in php da mysql con funzione matematica in javascript PHP 1
Domenico_Falco1 Associare una stessa funzione get a due eventi a.click con classi differenti Ajax 6
psicomia Gestione funzione in javascript in tabella richiamare"textarea" valori preimpostati in "select" Javascript 2
L Problema funzione mail() PHP PHP 3
elpirata [Javascript] Lo script alle volte funzione altre volte no Javascript 0
V [Visual Basic] Richiamare funzione su modulo per restituire list Visual Basic 0
R [Photoshop] funzione colore automatico Photoshop 0
maxnegri [PHP]Funzione di calcolo prezzo di una camera in un range di date PHP 62
L [PHP] problema count messo in una funzione. PHP 1
Monital funzione php si ripete due volte PHP 6
GiErre [PHP] [HTML] Disabilitare un link in funzione della piattaforma PHP 7
Monital Funzione php e campo database come variabile PHP 6
M Recuperare ID e usarlo in funzione jQuery 2
M PHP - Funzione non e scrive il risultato PHP 3
R [Javascript] Rendere una funzione sempre visibile Javascript 2
M funzione mysql che ritorna i microsecondi a partire dal 1-1-1970 MySQL 3
batmanLF [MySQL] Problema funzione SUM MySQL 1
F [PHP] La funzione setcookie PHP 0
F [Photoshop] sovrapporre due immagini usando funzione batch Photoshop 0
otto9due Capire la funzione del parametro event passato alla funzione.. jQuery 1
A [Javascript] tabella dinamica e onchange su funzione Javascript 1
M Problema con connessione MySqli e funzione PHP 2
C [RISOLTO][PHP] Funzione ONclick PHP 14
A [PHP] Problema invio mail con funzione mail() PHP 3
C Creazione di una funzione per il filtraggio dei campi di un db Presentati al Forum 0
C richiamare una funzione in un altro script php PHP 1

Discussioni simili