按时间查找文件

按时间查找文件



Private Sub Command1_Click()

文件夹路径 = "F:\新建文件夹"

'遍历文件夹内所有文件，获得其路径并存放在数组中
Set fso = CreateObject("Scripting.FileSystemObject")

    Set folder_a = fso.GetFolder(文件夹路径)
    For Each f In folder_a.Files
   
   
     '显示创建最早的文件信息
     Text1 = f
     Text1 = Text1 & "  " & "创建时间=" & f.DateCreated
        
        
    Next
   
End Sub



_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/