Data Creazione di un file...

[S.e.b.]

Ho una cartella excel che esegue delle operazioni su un file di testo,
importandolo.

Vorrei visualizzare, in una cella, la data di creazione del file che excel
apre.

Ho visto che la libreria Run Time di Visual Basic fornisce il metodo

FileSystem.FileDateTime(nome del file as String),

che restituisce la data di creazione o modifica del file. Se il file viene
aperto e modificato, quindi, il risulato di questa operazione cambia.

Ciononostante, se non erro, la data di creazione del file è un attributo che
il file si trasporta dietro, indipendentemente dall'ora locale e dal sistema
operativo, e può essere diversa dalla data di ultima modifica.

Esiste un metodo che consente di trovare questa data?

Ho semplificato l'uso di questo valore restituito; in realtà mi serve per
fare dei controlli, a livello di codice VBA, sulla autenticità del file. Non
mi serve, cioè, verificare col "tasto destro del mouse" le proprietà del
file... :)

Grazie mille, sperando di essermi spiegato.

S.e.b.

[Mauro Gamberini]

Post by S.e.b.
Ho una cartella excel che esegue delle operazioni su un file di testo,
importandolo.
Vorrei visualizzare, in una cella, la data di creazione del file che excel
apre.

Public Sub m()

Dim objFSO As Object
Dim objFile As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\a.csv")

With Worksheets("Foglio1")

.Range("A1").Value = "Date created: " & objFile.DateCreated
.Range("A2").Value = "Date last accessed: " &
objFile.DateLastAccessed
.Range("A3").Value = "Date last modified: " &
objFile.DateLastModified
.Range("A4").Value = "Drive: " & objFile.Drive
.Range("A5").Value = "Name: " & objFile.Name
.Range("A6").Value = "Parent folder: " & objFile.ParentFolder
.Range("A7").Value = "Path: " & objFile.Path
.Range("A8").Value = "Short name: " & objFile.ShortName
.Range("A9").Value = "Short path: " & objFile.ShortPath
.Range("A10").Value = "Size: " & objFile.Size
.Range("A11").Value = "Type: " & objFile.Type

End With

End Sub


Cambia:
C:\a.txt
con la path del tuo file.

[S.e.b.]

Grazie mille.

S.e.b

[Cut]