很急，高手请进

Question

Private Declare Function FileTimeToLocalFileTime Lib "kernel32" ( _
    lpFileTime As FILETIME, _
    lpLocalFileTime As FILETIME) As Long
Private Function fFileDate(vFileName As String) As String
    On Error GoTo ErrHandle
    
    Dim ftime As SYSTEMTIME
    Dim tfilename As String
    Dim filedata As WIN32_FIND_DATA
    Dim tTemp As String
    Dim LocalFTime As FILETIME
    '
    filedata = Findfile(vFileName)
    Call FileTimeToLocalFileTime(filedata.ftLastWriteTime, LocalFTime)
    Call FileTimeToSystemTime(LocalFTime, ftime)
    tTemp = ftime.wDay & "/" & ftime.wMonth & "/" & ftime.wYear & " " _
            & ftime.wHour & ":" & ftime.wMinute & ":" & ftime.wSecond
    fFileDate = Format(tTemp, "yyyy-mm-dd hh:mm:ss")
    
    Exit Function
ErrHandle:
    fFileDate = "1980-01-01 00:00:00"
End Function

Answer 1

junwhj & ahocat,谢谢两位的指点，搞VB近2年了，一直在做MIS系统，对VB的一些技巧性方面却很少进步，以后希望能从你们哪里学到更多。我的联系办法：[email protected]