Get drive information (Disk ID, FreeSpace, Label, etc)
These functions will provide you quick, fail-safe information about a specific disk letter you specify (ex: "C:\" ) GetDriveSerialID - Returns the serial number of a drive partition (if available) GetDriveFreeSpace - Returns the free space of the specified drive (if available) GetDriveSize - Returns the total drive space (if available) GetDriveUsedSpace - Returns the used disk space of the specified drive (if available) GetDriveLabel - Returns the volume label of the specified drive Some functions are declared as variant instead of longs, avoiding the 2GB limit.
Ringkasan AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
I know that this isn't new, and this information could be optained in many different ways (using API, etc).<br>
I'm just providing this info for beginers.<br>
<br>
Instructions:<br>
Put this code in a new form and add one button (named "Command1")<br>
<br>------------ ~ --------------<br><br>
Public Function GetDriveSerialID(diskletter As String) As String<br>
On Error Resume Next<br>
Set c = CreateObject("scripting.filesystemobject")<br>
GetDriveSerialID = Hex(c.drives(Left(diskletter, 1)).serialnumber)<br>
Set c = Nothing<br>
End Function<br>
<br>
Public Function GetDriveFreeSpace(diskletter As String) As Variant<br>
On Error Resume Next<br>
Set c = CreateObject("scripting.filesystemobject")<br>
GetDriveFreeSpace = 0 ' default<br>
GetDriveFreeSpace = c.drives(Left(diskletter, 1)).freespace<br>
Set c = Nothing<br>
End Function<br>
<br>
Public Function GetDriveSize(diskletter As String) As Variant<br>
On Error Resume Next<br>
Set c = CreateObject("scripting.filesystemobject")<br>
GetDriveSize = 0 ' default<br>
GetDriveSize = c.drives(Left(diskletter, 1)).totalsize<br>
Set c = Nothing<br>
End Function<br>
<br>
Public Function GetDriveUsedSpace(diskletter As String) As Variant<br>
On Error Resume Next<br>
GetDriveUsedSpace = GetDriveSize(diskletter) - GetDriveFreeSpace(diskletter)<br>
End Function<br>
<br>
Public Function GetDriveLabel(diskletter As String) As String<br>
On Error Resume Next<br>
Set c = CreateObject("scripting.filesystemobject")<br>
GetDriveLabel = c.drives(Left(diskletter, 1)).volumename<br>
Set c = Nothing<br>
End Function<br>
<br>
Private Sub Command1_Click()<br>
UseHD = "C:"<br>
Debug.Print "Volume Label: " & GetDriveLabel("c")<br>
Debug.Print "Disk serial number: " & GetDriveSerialID("c")<br>
Debug.Print "Free space: " & GetDriveFreeSpace("s") & " bytes"<br>
Debug.Print "Total drive size: " & GetDriveSize("c") & " bytes"<br>
Debug.Print "Total used space: " & GetDriveUsedSpace("c") & " bytes"<br>
End Sub<br>
<br>
------------ ~ --------------<br>
<br>
Vote if you wish. I appreciate it<br>
// FCLage<br>