Lascia le funzioni che ho scritto inalterate, e metti
codice:
Private Sub WatchChangeAction(fPath As String)
    Dim fName As String
    fName = GetLastModifiedFile(fPath)
    AddDirSep(fPath)
    With List1
        .Clear
        If Len(fName) > 0 Then
            .AddItem "file: " & vbTab & fName
            .AddItem "size: " & vbTab & FileLen(fPath & fName)
            .AddItem "attr: " & vbTab & FileDateTime(fPath & fName)
        End If
    End With
End Sub
.