retrieve each file size from folder

[montecarlo2079]

Here is the code I am using and it works great. I need to also bring in the file size of each file and put it in the column next to it.

any ideas how I can do this?





Dim strDirPath As String
Dim objFSO As Object, _
objFolder As Object
Dim strOutputSheetName As String, _
strOutputCol As String
Dim lngOutputRowNum As Long

strDirPath = "c:\XXXXXXXXX\"'Change to suit

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strDirPath)

strOutputSheetName = ("MDS") 'Output to be on the active sheet tab (change to suit)
strOutputCol = "H" 'Output Column (change to suit)
lngOutputRowNum = 2 'Initial output row number (change to suit)

Application.ScreenUpdating = False

For Each objFile In objFolder.Files

Sheets(strOutputSheetName).Range(strOutputCol & lngOutputRowNum).Value = objFile.Name
lngOutputRowNum = lngOutputRowNum + 1



Next objFile

'Cleanup
Set objFSO = Nothing
Set objFolder = Nothing

Application.ScreenUpdating = True

 

[AlphaFrog]

    For Each objFile In objFolder.Files
        With Sheets(strOutputSheetName).Range(strOutputCol & lngOutputRowNum)
            .Value = objFile.Name
            .Offset(, 1).Value = Format(objFile.Size, "0,000") & " KB"
        End With
        lngOutputRowNum = lngOutputRowNum + 1
    Next objFile

Excmple Directory List code:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=837

 

[montecarlo2079]

worked great!!

thanks!