[VB] data creazione/modifica file su server

[willybit]

io ti aiutos sidin...

in VisualBasic devi mettere i riferimenti a Microsoft Scripting Runtime (Progetto-->Riferimenti...)
e poi è molto simile a quello de prima

Dim filespec As String
Dim fso As Scripting.FileSystemObject
Dim erFile As Scripting.File
filespec = "C:\NomeFile.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
    Set erFile = fso.GetFile(filespec)
    msg = erFile.Path & vbCrLf
    msg = msg & "Data di creazione: " & erFile.DateCreated & vbCrLf
    msg = msg & "Ultimo accesso: " & erFile.DateLastAccessed & vbCrLf
    msg = msg & "Ultima modifica: " & erFile.DateLastModified
Else
    msg = filespec & " non esiste."
End If
MsgBox (msg)