devo realizzare un programma che da un bacth esterno richiama il prg il quale mi deve eseguire una copia di backup incrementale :
1- prendo il file originale e sposto nella cartella di backup
2- nella cartella backup devo eseguire la copia con una retecion di 50gg (giorni)
3- x far ciò devo fargli controllare se esiste il file originale , in questo caso se c'e' esegui copia originale ---> originale.1
originale.1 -> originale.2
e cosi via
4- in questo codice riesco a fare le copie ma solo dello stesso file !! come posso fare a risolvere il problema?
Function backup()
Dim files As String
Dim num As Long
Dim lavoro As String
Dim inizio As String
files = "c:\gm\files\"
lavoro = "c:\gm\safe\"
FileCopy files & "eodspool", lavoro & ("eodspool" & "." & "prn")
Name files & "eodspool" As files & ("eodspool" & "." & "prn")
Kill files & ("eodspool" & "." & "prn")
For num = 1 To 50
FileCopy lavoro & ("eodspool" & "." & (num)), lavoro & ("eodspool" & "." & (num +1))
Next num
end function
|