6 messaggi dal 24 giugno 2002
Sto lavorando su un programmino che deve fornire un link ad un file
che si aggiorna ogni settimana .Questo file si trova in una cartella contenuta in una directory su un server insieme ad altri file + vecchi .Come faccio a determinare la data dell' ultima modifica di questi file in modo da estrapolarne il + nuovo?
575 messaggi dal 06 settembre 2002
Contributi
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Creazione: " & f.DateCreated & vbCrLf
s = s & "Ultimo accesso: " & f.DateLastAccessed & vbCrLf
s = s & "Ultima modifica: " & f.DateLastModified
MsgBox s, 0, "Informazioni sull'accesso al file"
6 messaggi dal 24 giugno 2002
Grazie per la sollecitudine , il problema che filespec da quanto ho capito
è il nome esatto del file + nuovo in questione che ahimè non sappiamo , lo dobbiamo determinare in una specifica cartella e successivamente fare un link direttamente ad esso.
9 messaggi dal 17 luglio 2002
Rapidamente:

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set fc = f.Files
For Each f1 in fc
s = UCase(f1.name) & vbCrLf
s = s & "Creazione: " & f1.DateCreated & vbCrLf
s = s & "Ultimo accesso: " & f1.DateLastAccessed & vbCrLf
s = s & "Ultima modifica: " & f1.DateLastModified
MsgBox s, 0, "Informazioni sull'accesso al file"
Next

Così scorri tutti i file nelle dir
Poi per l'operazione più adatta all'interno del For-Next lascio a te la palla
11.886 messaggi dal 09 febbraio 2002
Contributi
e grazie quella era la parte più facile...
allora, Alien dice giustamente di esaminare tutte le proprietà DateLastModified usando un ciclo for...each.
Il file più recente sarà quello che riporta la data maggiore.

data = Cdate("01/01/1980")
nomefile = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
For Each file in f.files
if CDate(file.DateLastModified) > data then
data = Cdate(file.DateLastModified)
nomefile = file.Path
end if
Next

finito il ciclo la variabile "nomefile" conterrà il nome del file più recente.
Una nota: ho usato CDate(file.DateLastModified) perchè non sono assolutamente sicuro che DateLastModifies sia di tipo data, potrebbe anche essere una stringa, mah...

Enjoy learning and just keep making
6 messaggi dal 24 giugno 2002
TI RINGRAZIO MOLTO PER IL TUO AIUTO , VEDO DI METTERLO IN PRATICA,ALTRA DOMANDINA : IL PATH SE NON VADO ERRATO LO DEVO DICHIARARE ?

GRAZIE
11.886 messaggi dal 09 febbraio 2002
Contributi
ah si si, avevo usato la variabile Path senza dichiararla...
puoi anche scrivere il percorso direttamente tra le parentesi di GetFolder:

Set f = fso.GetFolder("c:\cartella\")

oppure, se non conosci il percorso assoluto puoi usare Server.MapPath

Set f = fso.GetFolder(Server.MapPath("../"))

questo punterà ad una cartella "più sopra" di quella in cui si trova la ASP che contiene questo script

Enjoy learning and just keep making
6 messaggi dal 24 giugno 2002
Grazie sei proprio forte! dovevo linkare direttamente su quel file che viene autogenerato periodicamente . La cosa funziona spero di esserti utile nel prossimo futuro speriamo di risentirci, ringrazio anche Dracula
ed Alien.

Chow!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.