[VB6] Verificare data dell'ultima modifica di un file

[LMondi]

Ciao Tuning,
prova in quest'altro modo:

Option Explicit
Private Sub Command1_Click()
    Dim m As String
    Dim sFILE As String

On Error GoTo Command1_Click_Error
    sFILE = App.Path & "\prova.xls"
    Text1.Text = ""
    
    m = FileDateTime(sFILE)
    Text1.Text = m

On Error GoTo 0
   Exit Sub

Command1_Click_Error:

    MsgBox "Error " & Err.Number & " ( " & Err.Description & " ) nella procedura Command1_Click della Form: Form1"

End Sub