.NET/VB 2008 Code – To Retrieve the list of space occupying folders from your PC

Very recently I required to find the list of folders occupying maximum bytes in my notebook for housekeeping purposes, and was stumped to realise that its no simple task. So here I come with a code snippet, which scans the given drive and writes into an excel file - the folders, and bytes occupied by files in those folders, in KB units. As a pre-requisite, one need to create a directory named “Foldersize” under C: drive and want to place a button (named button1) in winform. Copying the following piece of code and executing will result in creation of an excel file under "c:\foldersize". Open the created excel file, sort the contents in descending order to spot the top culprit folder(s) occupying maximum space in your hard drive. I can guarantee that the code is not performance friendly, however does the required job with ease for me.

It takes circa 30 minutes to scan C: and 15 minutes to examine D:, in my PC.

The following lines scrutinizes D: drive alone, however one can modify the statement in bold with the drive subject to examination. All the best and happy coding.

Imports System.IO

Imports Microsoft.Office.Core

Public fdirsize As Double = 0

Public tmpfdirsize As Double = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim eapp As New Excel.Application

  Dim wb As Excel.Workbook = eapp.Workbooks.Add

  Dim ws As Excel.Worksheet = wb.Worksheets.Add

  Dim irow As Integer = 2

  Dim icol As Integer = 2

  Dim fname As String

  GetDirectorySize("D:\", wb, ws, irow, icol)

  fname = "C:\FolderSize\fsize" & Mid(Now, 1, 2) & Mid(Now, 4, 2) & Mid(Now, 7, 4) & ".xls"

  wb.SaveAs(fname)

  MsgBox("Scan Complete")

  wb.Close()

  eapp.Quit()

End Sub

Public Function GetDirectorySize(ByVal dirpath As String, ByRef wb As Excel.Workbook, ByRef ws As Excel.Worksheet, ByVal irow As Integer, ByVal icol As Integer) As Double

  tmpfdirsize = 0

  Dim fsizekb As Double

  If System.IO.Directory.Exists(dirpath) = False Then

     GetDirectorySize = fdirsize

     Exit Function

  End If

Try

  Dim dirinfo As New System.IO.DirectoryInfo(dirpath)

  Dim oFiles As System.IO.FileInfo() = dirinfo.GetFiles()

  If CInt(oFiles.Length) > 0 Then

     Dim nFileLen As Integer = oFiles.Length

     For i As Integer = 0 To nFileLen - 1

        fdirsize += oFiles(i).Length

        tmpfdirsize += oFiles(i).Length

    Next

  End If

  fsizekb = Math.Round(tmpfdirsize / 1024, 2)

  If fsizekb > 0 Then

      ws.Cells(irow, icol) = fsizekb

      ws.Cells(irow, icol + 1) = "KB"

      ws.Cells(irow, icol + 2) = dirpath

      irow += 1

  End If

  Dim oDirectories As System.IO.DirectoryInfo() = dirinfo.GetDirectories()

  If dirinfo.GetDirectories.Length > 0 Then

     Dim nDirLen As Integer = dirinfo.GetDirectories.Length

     For i As Integer = 0 To nDirLen - 1

        fdirsize += GetDirectorySize(oDirectories(i).FullName, wb, ws, irow, icol)

        irow += 1

    Next

  End If

  Catch ex As Exception

      MsgBox(ex.Message & " " & dirpath)

      Exit Function

  End Try

End Function