Sizes of Files in a Directory [Resolved]

[LITHIA]

Hi,

I have been having a lot of different attempts at this, and they all seem to fail.

Is there anyway to quickly get the sizes of all the files within the directory and then add them together to get a file size of all of them?

I need this for a quick feature in my app to get the size of the directory, not including the size of files within subfolders.

Thanks for the help

[Negative0]

Something like this:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(Format(FolderSize("C:\"), "###,###,###"))
    End Sub
 
    Public Function FolderSize(ByVal strFolder As String) As Long
        Dim fs As IO.Directory
        Dim myFile As IO.FileInfo
        Dim sTemp() As String
        Dim s As String
        Dim lngLength As Long
        lngLength = 0
        sTemp = fs.GetFiles(strFolder)
        For Each s In sTemp
            myFile = New IO.FileInfo(s)
            lngLength += myFile.Length()
        Next
        Return lngLength
 
    End Function

[LITHIA]

thanks! that worked great!

Any idea of how i would convert the bytes into MB?

[Negative0]

Divide by (1024*1024)

MsgBox(Format(FolderSize("C:\") / (1024 * 1024), "###,###,### MB"))

[LITHIA]

wow you're good! thanks! now, i swear this will be last question.

Anyway to get it to 2 decimal places when I put it as a double?

I got

Dim FolderSizeMB As Double = FolderSize() / (1024 * 1024)

which works fine, but gives 11 decimal places instead of the 1 that i want. Using a Long or Short just ends up giving the MB to the whole number, but 2 decimal places is good for an mb.

Thanks very much again Negative0, you're great!

[Negative0]

Dim FolderSizeMB As Double = FolderSize() / (1024 * 1024)

msgbox Format(FolderSizeMB,"###,###.00")

[Negative0]

Or you could use the round function

Dim FolderSizeMB As Double = FolderSize("C:\") / (1024 * 1024)
        FolderSizeMB = System.Math.Round(FolderSizeMB, 2)
        MsgBox(FolderSizeMB)

[LITHIA]

anyway of converting the actual variable? I'm not displaying the size in a msgbox so i cant put a mask on it.

im adding it into a listbox, like this

lbInfo.Items.Add("Size of Directory: " & FolderSize() & " bytes, " & FolderSizeMB & " MB")

So i need to specifically convert the variable

thanks

[Negative0]

Use the round function as mentioned above. You must have been typing your message when I posted it

[LITHIA]

ah yeah thanks! ill try it when i get back, lol

You must have been typing your message when I posted it

must have

thanks very mucccchh

[LITHIA]

Heheh that worked fantastic! Thankyou so much for your help!

Really appreciated,

Thread Resolved