Chức năng VBA Excel để trả về kích thước tệp theo byte

Question

Tôi muốn trả về kích thước tệp của một số tệp trong cùng một thư mục hoặc trong một tệp khác với VBA trong Excel 2010.

Answer 1

Ở đây cách sử dụng nó trong Excel Cell:

=GetDirOrFileSize("C:\Users\xxx\Playground\","filename.xxx") 

Nếu bạn có một Windows Đức hơn:

=GetDirOrFileSize("C:\Users\xxx\Playground\";"filename.xxx") 

đây là chức năng cho các modul VBA: (Chỉ cần cho phép các công cụ phát triển, và sao chép và dán vào một modul mới)

Function GetDirOrFileSize(strFolder As String, Optional strFile As Variant) As Long 

'Call Sequence: GetDirOrFileSize("drive\path"[,"filename.ext"]) 

    Dim lngFSize As Long, lngDSize As Long 
    Dim oFO As Object 
    Dim oFD As Object 
    Dim OFS As Object 

    lngFSize = 0 
    Set OFS = CreateObject("Scripting.FileSystemObject") 

    If strFolder = "" Then strFolder = ActiveWorkbook.path 
    If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\" 
    'Thanks to Jean-Francois Corbett, you can use also OFS.BuildPath(strFolder, strFile) 

    If OFS.FolderExists(strFolder) Then 
    If Not IsMissing(strFile) Then 

     If OFS.FileExists(strFolder & strFile) Then 
     Set oFO = OFS.Getfile(strFolder & strFile) 
     GetDirOrFileSize = oFO.Size 
     End If 

     Else 
     Set oFD = OFS.GetFolder(strFolder) 
     GetDirOrFileSize = oFD.Size 
     End If 

    End If 

End Function '*** GetDirOrFileSize *** 

Answer 2

Có một VBA chức năng rất tốt đẹp và đơn giản, mà đã không được đề cập đến nay, FileLen:

FileLen("C:\Temp\test file.xls")

Nó trả về kích thước của các tập tin trong byte.

Kết hợp với lặp qua các tệp trong thư mục, bạn có thể đạt được những gì bạn muốn ban đầu (có kích thước tệp trong thư mục).