Devo controllare le date di creazione su due file, uno sul pc ed uno sul sito web,
se diverse sostituire il file del pc con quello del sitoweb.
Leggere la data sul pc stato facile grazie al vostro aiuto, leggerla sul file
del sito ci sono riuscito solo scaricando il file, non mi sembra una buona opzione
vorrei leggerla direttamente sul sito e scaricarlo sol se necessario.
Allego il codice che ho utilizzato per scaricare il file e leggere la data,
come modificarlo per non scaricare?
testo=“miofile.rsd”
dim url as string
dim name as string = testo
testo2=percorso+“Tempweb/”+name
rem Tempweb la cartella dove scarico il file
dim DestinationFile as FolderItem =getFolderitem(testo2)
url=“ftp://www.miosito.i/miosito.it/Cartellafile/”+testo
DoDownload url, DestinationFile
Private sub DoDownload(URL as string, dest as FolderItem)
dim f as FolderItem
dim Result as integer
dcur = new CURLSMBS
if not dcur.CreateMTOutputFile(dest) then
MsgBox “Fallita la creazione”
Return
end if
dcur.OptionURL = URL
dcur.OptionUsername = “57xxxxx@aruba.it”
dcur.OptionPassword = “xxxxxx”
dcur.OptionVerbose = true
dcur.OptionSSLVerifyHost = 0
dcur.OptionSSLVerifyPeer = 0
Result = dcur.PerformMT
dcur.CloseMTOutputFile
dim s as string = dcur.OutputData
if s.Encoding = nil then
s = DefineEncoding(s, encodings.ISOLatin1)
end if
s = ReplaceLineEndings(s, EndOfLine)
dcur = nil
if Result<>0 then
msgbox str(result)
else
testo=percorso + “Tempweb”+testo
end if
lettura della data di creazione
f = getFolderitem( percorso+“Tempweb\miofile.rsd”)
if f<>NIL AND f.exists then
testo3=str(f.CreationDate.ShortDate)
end if