VB check File

SUNZL28

已于 2023-06-11 12:32:34 修改

阅读量62

点赞数

文章标签：开发语言

于 2023-06-11 12:14:48 首次发布

本文链接：https://blog.csdn.net/rzl_rzl/article/details/131151998

版权

这段VBA代码在Excel工作簿中遍历指定的工作表(File_check)，使用Scripting.FileSystemObject对象检查每行提供的文件路径。如果文件存在，它会记录找到状态，以及文件的创建日期和最后修改日期。若文件不存在，则标记为未找到。

摘要由CSDN通过智能技术生成

Sub Check_File()
    Dim objFile As Object 'File '
    Dim fso As Object
    Dim rw As Integer
    
    Set sht = ThisWorkbook.Worksheets("File_check")
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    rw = 2
    
    Do While (sht.Cells(rw, 1) <> "")
        f_path = sht.Cells(rw, 1).Value
        Set objFile = fso.GetFile(f_path)
        If fso.fileexists(objFile) Then
            f_status = "Find"
            f_Ctime = objFile.DateCreated
            f_Ltime = objFile.DateLastModified
            
            sht.Cells(rw, 2) = f_status
            sht.Cells(rw, 3) = f_Ctime
            sht.Cells(rw, 4) = f_Ltime
        Else
            f_status = "No Find"
        End If
        rw = rw + 1
    Loop
End Sub