核心代码：

1. Function ShowDriveType(drvpath)
   
2.   Dim fso, d, t
   
3.   Set fso = CreateObject("Scripting.FileSystemObject")
   
4.   Set d = fso.GetDrive(fso.GetDriveName(drvpath))
   
5.   Select Case d.DriveType
   
6.    Case 0 t = "Unknown"
   
7.    Case 1 t = "Removable"  '移动硬盘
   
8.    Case 2 t = "Fixed"    '硬盘
   
9.    Case 3 t = "Network"   '网络硬盘
   
10.    Case 4 t = "CD-ROM"
    
11.    Case 5 t = "RAM Disk"   'RAM
    
12.   End Select
    
13.   ShowDriveType = "Drive " & d.DriveLetter & ": - " & t
    
14. End Function
    
15. 
    
16. Function ShowFreeSpace(drvPath)
    
17. Dim fso, d, s
    
18. Set fso = CreateObject("Scripting.FileSystemObject")
    
19. Set d = fso.GetDrive(fso.GetDriveName(drvPath))    'd为F:
    
20. s = "Drive " & UCase(drvPath) & " - "
    
21. s = s & d.VolumeName & " "
    
22. s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)
    
23. s = s & " KBytes"
    
24. ShowFreeSpace = s
    
25. End Function
    
26. 
    
27. Dim message
    
28. 
    
29. message = ShowDriveType("F:\Programming\Applications")
    
30. MsgBox message
    
31. message = ShowFreeSpace("F:\Programming\Applications")
    
32. MsgBox message

复制代码

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！