[Iska]

Код:

Next

With FSO.GetFolder(DirName)
    Out = Out & CStr(Round(.Size / 2^20, 2)) & "  " & .Name & vbCrLf
End With

Set F = FSO.OpenTextFile(WhereOut, 2, True)

Не проверялось.