''' <summary>
''' method to retrieve the HDD's freespace
''' </summary>
''' <param name="drive">Drive letter to get free space from (optional)</param>
''' <returns>The free space of the selected HDD</returns>
Public Function GetHDDFreeSpace(ByVal drive As String) As Double
	'check to see if the user provided a drive letter
	'if not default it to "C"
	If drive = "" OrElse drive Is Nothing Then
		drive = "C"
	End If
	'create our ManagementObject, passing it the drive letter to the
	'DevideID using WQL
	Dim disk As New ManagementObject("Win32_LogicalDisk.DeviceID=""" + drive + ":""")
	'bind our management object
	disk.[Get]()
	'return the free space amount
	Return Convert.ToDouble(disk("FreeSpace"))
End Function