怎样批量获取文件的 “创建内容的时间、创建日期、修改日期”。最好能用VBA 或者变成EXCEL列表，求大神

Sub GetFileTime()

    Dim i As Integer

    i = 1

    Set fso = CreateObject("ScriptingFileSystemObject")

    Set fs = fsogetfolder("d:\")Files

    With Sheet1

        Cells(1, 1) = "序号": Cells(1, 2) = "创建时间": Cells(1, 3) = "最后修改时间": Cells(1, 4) = "最后访问时间"

        For Each f In fs

            i = i + 1

            Cells(i, 1) = fName: Cells(i, 2) = fdatecreated: Cells(i, 3) = fDateLastModified: Cells(i, 4) = fDateLastAccessed

        Next

    End With

End Sub

以上即是VBA代码，运行后自动将D盘根目录下的文件名称和相关时间属性填写在Sheet1中，见下图效果：

import os,time   

timectime(osstat("c:/1txt")st_mtime) #文件的修改时间   

timectime(osstat("c:/1txt")st_ctime) #文件的创建时间  

  

  

timelocaltime(osstat("F:/logtxt")st_mtime) #文件访问时间 适合计算时间  

  

ModifiedTime=timelocaltime(osstat("F:/logtxt")st_mtime) #文件访问时间  

y=timestrftime('%Y', ModifiedTime)  

m=timestrftime('%m', ModifiedTime)  

d=timestrftime('%d', ModifiedTime)  

H=timestrftime('%H', ModifiedTime)  

M=timestrftime('%M', ModifiedTime)  

  

d2=datetimedatetime((int)y,(int)m,(int)d,(int)H,(int)M)  

同理d1  

  

(d1-d2)seconds #为d1与d2相隔十分钟 ！

本人之前写的帖子的一个实例

一看就知道，如下：

Sub 按钮1_Click()

    ApplicationScreenUpdating = False

    Set fso = CreateObject("ScriptingFileSystemObject")

    strfile = ApplicationInputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)

    Set objfile = fsoGetFile(strfile)

    If fsofileexists(strfile) Then

       

        sReturn = "文件属性： " & objfileAttributes & vbCrLf

         

        sReturn = sReturn & "文件创建日期： " & objfileDateCreated & vbCrLf

         

        sReturn = sReturn & "文件修改日期： " & objfileDateLastModified & vbCrLf

         

        sReturn = sReturn & "文件大小 " & FormatNumber(objfileSize / 1024, -1)

         

        sReturn = sReturn & "Kb" & vbCrLf

         

        sReturn = sReturn & "文件类型： " & objfileType & vbCrLf

        MsgBox sReturn

    Else

        MsgBox strfile & " :不存在"

    End If

    ApplicationScreenUpdating = True

End Sub

1获取文件创建时间示例：

$ctime=filectime("chinawinxptxt");

echo "创建时间："date("Y-m-d H:i:s",$ctime);

2获取文件修改时间示例：

$mtime=filemtime("chinawinxptxt");

echo "修改时间："date("Y-m-d H:i:s",$mtime);

找到要查看的文件，右键点击属性

在d出的对话框中，我们明显可以看到有更详细的信息，有文件的类型，位置，大小，占用电脑空间，创建日期，修改日期等等，

3

当然我们如果只查看文件的大小和修改日期还有更简洁的方法，左键点击文件不动，会d出一个对话框，显示文件的大小和修改日期

读取文件的创建、修改、访问时间

FileInfo fi = new FileInfo("C://testtxt");

ConsoleWriteLine(fiCreationTimeToString());文件的创建

ConsoleWriteLine(fiLastWriteTimeToString());文件的修改

ConsoleWriteLine(fiLastAccessTimeToString());文件的访问时间

改变（设置）文件的创建、修改、访问时间

FileSetCreationTime("C://testtxt", DateTimeNowAddYears(-1));文件的创建

FileSetLastWriteTime("C://testtxt", DateTimeNowAddYears(-2));文件的修改

FileSetLastAccessTime("C://testtxt", DateTimeNowAddYears(-3));文件的访问时间

批处理获取修改时间很容易。。看for帮助： %~tI - 将 %I 扩展到文件的日期/时间这个“日期/时间”就是修改时间。。另外veket_linux大侠的au3有点小笔误：StringCompare($modify_time[$i], $start)<=0应该改成StringCompare($modify_time[$i], $end)<=0。。还有最后一个Msgbox图标用64比较好点。。

以上就是关于怎样批量获取文件的 “创建内容的时间、创建日期、修改日期”。最好能用VBA 或者变成EXCEL列表，求大神全部的内容，包括:怎样批量获取文件的 “创建内容的时间、创建日期、修改日期”。最好能用VBA 或者变成EXCEL列表，求大神、如何在Python中获取文件创建和修改日期/时间、如何利用vba代码提取文件修改日期等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！