Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Display Drive information

Sub cmdDriveInfo_Click()     Dim myFileSystemObject As FileSystemObject, aDrive As Drive     Set myFileSystemObject = New FileSystemObject     Set aDrive = myFileSystemObject.GetDrive("C:\")     With aDrive         Debug.Print "Volume Name: " & .VolumeName & vbCrLf         Debug.Print "Free Space: " & Format(.FreeSpace / 1000000000#, "#0.00") & "GB" & vbCrLf         Debug.Print "Total Size: " & Format(.TotalSize / 1000000000#, "#0.00") & "GB" & vbCrLf         Debug.Print "Ready: " & .IsReady     End With     Set myFileSystemObject = Nothing     Set aDrive = Nothing End Sub Private Sub AddFolders()