Newsgroup: it.comp.lang.visual-basic
Titolo: Le Date dei File

Cercavo come ricavare o cambiare le informazioni relative alle date di un
file cioe' :
Data creazione file
Data ultima modifica del file
Data ultimo accesso al file
Essendo nn bravo abbastanza ho cercato in rete un prog.
gia' fatto che faceva questo lavoro. Ho trovato 2 esempi
ma quando li faccio girare ottengo questi risultati :
Data creazione file                 :   1 ora indietro
Data ultima modifica del file  :   1 ora indietro
Data ultimo accesso al file    :    1 giorno indietro !
Chi mi sa' dare una spiegazione???

 Chi mi sa' dare una spiegazione???
Nella terza riga del secondo esempio c'č un errore palese
termoPilucco

 Nella terza riga del secondo esempio c'č un errore palese
Big LOL

 wrote in message
MlXHb.21513$_P.9...@news4.tin.it...

Proprio cosi' nella data dell'ultimo accesso mi porta 1 giorno indietro !
ps. LUPO che significa BIG OL ??????

 ha scritto nel messaggio
news:MlXHb.21513$_P.9...@news4.tin.it...

Perche' l'italia ha un'ora di differenza sul meridiano di greenwich.
Devi usare la funzione LocalFileTimeToFileTime per aggiornare dall'ora
locale (italiana) a quella di sistema
Io per cambiare la data dei file uso questa funzione.
Le dichiarazioni delle api pero' te le devi cercare tu perche' io le ho
inserite in un modulo assieme a tante altre. :-)
Public Function ModificaDataFile(NomeFile As String, NuovaData As Date) As
Boolean
Dim hFile     As Long
Dim i         As Integer
Dim lRes      As Long
Dim FileStrut As OFSTRUCTREC
Dim FileTm As FILETIME
Dim SysTmR As SYSTIMEREC
Dim AbsTm As FILETIME
If Len(NomeFile) = 0 Or Len(Dir(NomeFile)) = 0 Then
    ModificaDataFile = False
    Exit Function
End If
hFile = CreateFile&(NomeFile, GENERIC_READ Or GENERIC_WRITE, 0, 0,
OPEN_EXISTING, 0, 0)
SysTmR.wDay = Day(NuovaData)
SysTmR.wMonth = Month(NuovaData)
SysTmR.wYear = Year(NuovaData)
SysTmR.wHour = Hour(NuovaData)
SysTmR.wMinute = Minute(NuovaData)
SysTmR.wSecond = Second(NuovaData)
lRes = SystemTimeToFileTime(SysTmR, FileTm)
If (lRes = 0) Then
    ModificaDataFile = False
    call lclose(hFile)
    Exit Function
End If
lRes = LocalFileTimeToFileTime(FileTm, AbsTm)
If (lRes = 0) Then
    ModificaDataFile = False
    call lclose(hFile)
    Exit Function
End If
lRes = SetFileTime(hFile, AbsTm, AbsTm, AbsTm)
If (lRes = 0) Then
    ModificaDataFile = False
    call lclose(hFile)
    Exit Function
End If
call lclose(hFile)
ModificaDataFile = True
End Function

 ps. LUPO che significa BIG OL ??????
Era un Big L O L, senza spazi fra L, O e L
Sul Big direi che possiamo darlo per piuttosto comprensibile, per il resto,
giurando che io non c'ho messo mano:
http://www.rccr.cremona.it/appro/netiquette/acronimi.ssi
Se usi Outlook Express, ti consiglio anche:
http://flash.to/oe-quotefix/
 (capirai meglio, visivamente parlando)
e, ribadisco, a favore di termo, ovviamente : LOL

 e, ribadisco, a favore di termo, ovviamente : LOL
Ah ecco, il server mangiacrauti deve essersi pappato il tuo primo reply.
Come invece puoi immaginare, questo lo vedo :)
termoPilucco, in Germania credo che i server brindino un paio di giorni
prima.

 giorni prima.
Come ben puoi vedere, l'ho supposto anch'io.

 Chi mi sa' dare una spiegazione???
UN GRAZIE a PAOLO B. non riuscivo a spiegarmi questa cosa.
Intuivo che i 2 programmi nn potevano sbagliare !
Per quanto riguarda i messaggi TermoPilucco e Lupo
ragazzi invece di rispondere vi dilungate in osservazioni
che nn sono dell'argomento....
...... avevo chiesto un aiuto !

 ...... avevo chiesto un aiuto !
Sì, citando due fantomatici esempi e nemmeno una riga di codice degli
stessi.
La sfera di cristallo è in tour per tutte le TV, torna dopo la Befana...

Caro Lupo nn sono un bravo prog. ma si intuiva che si trattava di qualcosa
che andava aldila' delle righe di codice !
Da quello che ho visto e che mi ricordo tu sei un programmatore di molta
esperienza ...... percio' nn dirmi che
nn avevi capito il problema!
Seguiro' il tuo consiglio, torno dopo la Befana e spero di trovare
un'ambiente piu' accogliente !
      Auguri a Tutti - Buon Anno !

       Auguri a Tutti - Buon Anno !
A te.