Ê¹ ÓÃ FileDateTimeº¯ Êý »ñ µÃ ×î ºó ÐÞ ¸Ä ÊÂ ¼þ ¡£ Ê¹ ÓÃ FileLenº¯ Êý »ñ µÃ ÎÄ ¼þ ´ó Ð¡ (×Ö ½Ú Îª µ¥ Î» )¡£ »ñ µÃ ÎÄ ¼þ ½¨ Á¢ Ê± ¼ä Ðè Òª ½è Öú APIº¯ Êý £¬ Èç £º 
    Function CreateTime(sFilename As String) As Date 
     Dim hFile As Long 
     Dim sDate As String 
     
     ' Open file 
     hFile = CreateFile(sFilename, GENERIC_READ, _ 
     FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) 
     If hFile = -1 Then RaiseError 
     
     GetFileTime hFile, ftCreateTime, ByVal 0&, ByVal 0& 
     
     ' Get Create time. 
     FileTimeToLocalFileTime ftCreateTime, ftCreateTime 
     FileTimeToSystemTime ftCreateTime, stSystemTime 
     sDate = stSystemTime.wYear & "/" _ 
     & stSystemTime.wMonth & "/" & stSystemTime.wDay _ 
     & " " & stSystemTime.wHour & ":" _ 
     & stSystemTime.wMinute & ":" & stSystemTime.wSecond 
     
     ' Close file 
     CloseHandle hFile 
     
     CreateTime = CDate(sDate) 
    End Function 
<END>
