如何取得外部文件的日期

yaozi

請(qǐng)教一下，如何取得外部文件（不是數(shù)據(jù)庫(kù)本身）的創(chuàng)建日期或修改日期，謝謝。

chaojianan

Option Compare Database

'»ñÈ¡ÎļþÐÅÏ¢µÄGetFileInfoº¯Êý
Type FileInfo
    FileName As String   'Ãû×Ö
    ShortName As String
    Type As String    'ÀàÐÍ
        Size As Long
        DateCreate As Date
        DateLastModified As Date '
        DateLastAccessed As Date
        Attributes As String
    End Type

    '===============================================================================
    '-º¯ÊýÃû³Æ:     GetFileInfo
    '-¹¦ÄÜÃèÊö:     »ñÈ¡ÎļþÐÅÏ¢
    '-ÊäÈë²ÎÊý˵Ã÷: ²ÎÊý1: ±ØÑ¡ strFile As String Îļþ·¾¶ºÍÃû³Æ
    '-·µ»Ø²ÎÊý˵Ã÷: ·µ»ØÎļþÃû³Æ£¬ÀàÐÍ£¬´óС£¬¸üÐÂÈÕÆÚµÈ
    '-ʹÓÃÓ﷨ʾÀý: Msgbox GetFileInfo("C:\Abc.txt").Size
    '-ÒýÓÃ:Microsoft Scripting Runtime
    '===============================================================================
Function GetFileInfo(strFile As String) As FileInfo
    On Error Resume Next
    Dim fsoSys As New Scripting.FileSystemObject
    Dim fsoFile As File
    Dim strstrastr As String

    Set fsoFile = fsoSys.GetFile(strFile)
    With GetFileInfo
        .FileName = fsoFile.Name
        .ShortName = fsoFile.ShortName
        .Type = fsoFile.Type
        .Size = fsoFile.Size / 1000
        .DateCreate = fsoFile.DateCreated
        .DateLastModified = fsoFile.DateLastModified
        .DateLastAccessed = fsoFile.DateLastAccessed

        If fsoFile.Attributes And Archive Then
            strAstr = strAstr & "³£¹æ "
        End If
        If fsoFile.Attributes And ReadOnly Then
            strAstr = strAstr & "Ö»¶Á "
        End If
        If fsoFile.Attributes And Hidden Then
            strAstr = strAstr & "Òþ²Ø "
        End If
'        If fsoFile.Attributes And System Then 'ÕâÒ»¾äÓÐÎÊÌ⣬Ìáʾsystem䶨Òå
        If fsoFile.Attributes And 4 Then
            strAstr = strAstr & "ϵͳ "
        End If
        If fsoFile.Attributes And Compressed Then
            strAstr = strAstr & "ѹËõ "
        End If
        .Attributes = strAstr
    End With

    Set fsoSys = Nothing
    Set fsoFile = Nothing

End Function

chaojianan

不好意思，剛才的代碼有亂碼，看看這個(gè)。
Option Compare Database

'獲取文件信息的GetFileInfo函數(shù)
Type FileInfo
    FileName As String   '名字
    ShortName As String
    Type As String    '類型
        Size As Long
        DateCreate As Date
        DateLastModified As Date '
        DateLastAccessed As Date
        Attributes As String
    End Type

    '===============================================================================
    '-函數(shù)名稱:     GetFileInfo
    '-功能描述:     獲取文件信息
    '-輸入?yún)��?shù)說(shuō)明: 參數(shù)1: 必選 strFile As String 文件路徑和名稱
    '-返回參數(shù)說(shuō)明: 返回文件名稱，類型，大小，更新日期等
    '-使用語(yǔ)法示例: Msgbox GetFileInfo("C:\Abc.txt").Size
    '-引用:Microsoft Scripting Runtime
    '===============================================================================
Function GetFileInfo(strFile As String) As FileInfo
    On Error Resume Next
    Dim fsoSys As New Scripting.FileSystemObject
    Dim fsoFile As File
    Dim strstrastr As String

    Set fsoFile = fsoSys.GetFile(strFile)
    With GetFileInfo
        .FileName = fsoFile.Name
        .ShortName = fsoFile.ShortName
        .Type = fsoFile.Type
        .Size = fsoFile.Size / 1000
        .DateCreate = fsoFile.DateCreated
        .DateLastModified = fsoFile.DateLastModified
        .DateLastAccessed = fsoFile.DateLastAccessed

        If fsoFile.Attributes And Archive Then
            strAstr = strAstr & "常規(guī) "
        End If
        If fsoFile.Attributes And ReadOnly Then
            strAstr = strAstr & "只讀 "
        End If
        If fsoFile.Attributes And Hidden Then
            strAstr = strAstr & "隱藏 "
        End If
'        If fsoFile.Attributes And System Then '這一句有問(wèn)題，提示system未定義
        If fsoFile.Attributes And 4 Then
            strAstr = strAstr & "系統(tǒng) "
        End If
        If fsoFile.Attributes And Compressed Then
            strAstr = strAstr & "壓縮 "
        End If
        .Attributes = strAstr
    End With

    Set fsoSys = Nothing
    Set fsoFile = Nothing

End Function

chaojianan

Option Compare Database

'»ñÈ¡ÎļþÐÅÏ¢µÄGetFileInfoº¯Êý
Type FileInfo
    FileName As String   'Ãû×Ö
    ShortName As String
    Type As String    'ÀàÐÍ
        Size As Long
        DateCreate As Date
        DateLastModified As Date '
        DateLastAccessed As Date
        Attributes As String
    End Type

    '===============================================================================
    '-º¯ÊýÃû³Æ:     GetFileInfo
    '-¹¦ÄÜÃèÊö:     »ñÈ¡ÎļþÐÅÏ¢
    '-ÊäÈë²ÎÊý˵Ã÷: ²ÎÊý1: ±ØÑ¡ strFile As String Îļþ·¾¶ºÍÃû³Æ
    '-·µ»Ø²ÎÊý˵Ã÷: ·µ»ØÎļþÃû³Æ£¬ÀàÐÍ£¬´óС£¬¸üÐÂÈÕÆÚµÈ
    '-ʹÓÃÓ﷨ʾÀý: Msgbox GetFileInfo("C:\Abc.txt").Size
    '-ÒýÓÃ:Microsoft Scripting Runtime
    '===============================================================================
Function GetFileInfo(strFile As String) As FileInfo
    On Error Resume Next
    Dim fsoSys As New Scripting.FileSystemObject
    Dim fsoFile As File
    Dim strstrastr As String

    Set fsoFile = fsoSys.GetFile(strFile)
    With GetFileInfo
        .FileName = fsoFile.Name
        .ShortName = fsoFile.ShortName
        .Type = fsoFile.Type
        .Size = fsoFile.Size / 1000
        .DateCreate = fsoFile.DateCreated
        .DateLastModified = fsoFile.DateLastModified
        .DateLastAccessed = fsoFile.DateLastAccessed

        If fsoFile.Attributes And Archive Then
            strAstr = strAstr & "³£¹æ "
        End If
        If fsoFile.Attributes And ReadOnly Then
            strAstr = strAstr & "Ö»¶Á "
        End If
        If fsoFile.Attributes And Hidden Then
            strAstr = strAstr & "Òþ²Ø "
        End If
'        If fsoFile.Attributes And System Then 'ÕâÒ»¾äÓÐÎÊÌ⣬Ìáʾsystem䶨Òå
        If fsoFile.Attributes And 4 Then
            strAstr = strAstr & "ϵͳ "
        End If
        If fsoFile.Attributes And Compressed Then
            strAstr = strAstr & "ѹËõ "
        End If
        .Attributes = strAstr
    End With

    Set fsoSys = Nothing
    Set fsoFile = Nothing

End Function

yaozi

好像不行吧，只出現(xiàn)一些數(shù)字。

yaozi

不好意思，剛才的代碼有亂碼，看看這個(gè)。
Option Compare Database

'獲取文件信息的GetFileInfo函數(shù)
Type FileInfo
    FileName As String   '名字
    ShortName As String
    Type As String    '類型
...
chaojianan 發(fā)表于 2009-12-12 17:21

謝謝，成功了。剛才弄錯(cuò)了