Copiare file solo se più recenti
Alberto
con il codice DOS sopra riportato copio da C a D tutti i file e le
directory e subdirectory con una particolarità, copia (sovrascrive)
solamente se i file nella cartella di destinazione sono più vecchi.
Quindi, la prima volta che si lancia il codice, se c'è tanta roba, i
tempi possono essere lunghi ma la seconda volta i tempi sono
rapidissimi perchè non trovando file più vecchi in sintesi non copia
nulla.
passiamo ora a vbscript
quello che vorrei è una cosa simile, perchè il codice che ora utilizzo
copia tutto e sempre, anche se nella cartella di destinazione i file
hanno la stessa data o addirittura sono più recenti
ecco il codice:
if msgbox("Eseguire il backup?",vbYesNo) = vbYes Then
set objFSO = CreateObject ("Scripting.FileSystemObject")
Da_cartella = "C\pippo\"
A_cartella = "D\pippo\\"
For Each CartellaFile In objFSO.GetFolder(Da_cartella).Files
objFSO.CopyFile CartellaFile , A_cartella
Next
CreateObject("WScript.Shell").Popup "Fatto!", 5, "", 64
end if
ciao, grazie a chi perderà del tempo per me e Buon Natale a tutti!!
Reventlov
scritto:
>quello che vorrei =E8 una cosa simile, perch=E8 il codice che ora utilizzo
>copia tutto e sempre, anche se nella cartella di destinazione i file
>
>ecco il codice:
>
>if msgbox("Eseguire il backup?",vbYesNo) =3D vbYes Then
> set objFSO =3D CreateObject ("Scripting.FileSystemObject")
> Da_cartella =3D "C\pippo\"
> A_cartella =3D "D\pippo\\"
> For Each CartellaFile In objFSO.GetFolder(Da_cartella).Files
> objFSO.CopyFile CartellaFile , A_cartella
> Next
> CreateObject("WScript.Shell").Popup "Fatto!", 5, "", 64
>end if
Per confrontare le date di creazione puoi usare DateLastModified.
Questo è l'esempio preso dall'help script56.chm
Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(filespec) & "<BR>"
s = s & "Created: " & f.DateCreated & "<BR>"
s = s & "Last Accessed: " & f.DateLastAccessed & "<BR>"
s = s & "Last Modified: " & f.DateLastModified
ShowFileAccessInfo = s
End Function
--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
Alberto
> Giovanni Cenati (Bergamo, Italy)
> --
Aaaaaaaaaaaaaaaa ... lo sapevo che il grande Cenati avrebbe trovato il
tempo di rispondermi; ma ... hai dovuto spalare un po di neve per
ritrovare il PC? Ho visto che nelle valli ne è venuta giù un
casino!!!
Rientrando in tema, ti ringrazio e proverò la tua soluzione (se non
riesco al massimo lancio un help)
Ne approfitto per farti gli auguri di un Buon Natale e Felice Anno
Nuovo
Reventlov
scritto:
> ma ... hai dovuto spalare un po di neve per
>casino!!!
>
>Rientrando in tema, ti ringrazio e prover=F2 la tua soluzione (se non
>riesco al massimo lancio un help)
>
>Ne approfitto per farti gli auguri di un Buon Natale e Felice Anno
>Nuovo
Auguri a te ad a tutti i partecipanti al newsgroup.
Sono stato un po' occupato dal lavoro e dalla mia fantasmagorica carriera. L'anno prossimo
sarà anche peggio, a partire dal 3 gennaio quando quasi tutti i miei colleghi saranno
pensionati.
Tu rimani in linea, che vorrei scrivere una macro per ibm personal communication per
loggarmi, arrivare fino ad una applicazione, creare il dataset delle abilitazioni ai
gruppi, uscire, ricevere il file.
Ma c'è un help sullo scripting nelle cartelle del programma?
La nevicata è stata spettacolare, ma la neve si è sciolta subito. L'inverno è appena
iniziato; anche se il Natale non è stato "bianco" spero in un'altra bella nevicata in
gennaio.
Ci risentiamo l'anno nuovo.
Giovanni
--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
Alberto
> loggarmi, arrivare fino ad una applicazione, creare il dataset delle abilitazioni ai
> gruppi, uscire, ricevere il file.
> Ma c'è un help sullo scripting nelle cartelle del programma?
Ti rispondo solo ora perchè ero in montagna a sciare al Monte Pora,
che da Milano dista solo 100 Km.
Si, l'Help c'è, ma tieni presente che in questo argomento sono alle
prime armi.
Comunque, capendone poco, utilizzo anche questo sito:
http://publib.boulder.ibm.com/infocenter/pcomhelp/v5r9/index.jsp?topic=/com.ibm.pcomm.doc/books/html/host_access14.htm
Ciao, Alberto
