使用VB中的SERIPTING RUNTIME LIBRARY

• 
  　　　Dim fsoDrive As Drive
  
  　　　Private Sub Form_Load()
  
  　　　Dim sDrive As String
  
  　　　Dim sDriveType As String
  
  　　　Dim bHasCDRom As Boolean
  
  　　　Set fsoDrives = fsoSystem.Drives
  
  　　　For Each fsoDrive In fsoDrives
  
  　　　sDrive = fsoDrive.DriveLetter ＆ “: "
  
  　　　Select Case fsoDrive.DriveType
  
  　　　Case 0: sDriveType = “未知类型驱动器"
  
  　　　Case 1: sDriveType = “可移动驱动器"
  
  　　　Case 2: sDriveType =“固定驱动器"
  
  　　　Case 3: sDriveType = “远程驱动器"
  
  　　　Case 4: sDriveType =“CDROM驱动器"
  
  　　　Case 5: sDriveType = “RAM Disk"
  
  　　　End Select
  
  　　　If fsoDrive.DriveType = CDRom Or fsoDrive.DriveType = CDRom Then
  
  　　　bHasCDRom = bHasCDRom Or fsoDrive.IsReady
  
  　　　End If
  
  　　　sDrive = sDrive ＆ sDriveType
  
  　　　List1.AddItem (sDrive)
  
  
  　　　Next
  
  　　　End Sub
  
  　　　Private Sub Form_Unload(Cancel As Integer)
  
  　　　Set fsoSystem = Nothing
  
  　　　End Sub
  
  　　　Private Sub List1_Click()
  
  　　　Dim astr＄
  
  　　　Dim fsoDrive As Drive
  
  　　　If List1.ListIndex > －1 Then
  
  　　　astr = Left＄(List1.List(List1.ListIndex), 1)
  
  　　　Set fsoDrive = fsoSystem.GetDrive(astr)
  
  　　　’检查驱动器是否准备好
  
  　　　If Not fsoDrive.IsReady Then
  
  　　　MsgBox (“该驱动器未准备好或未插入磁盘")
  
  　　　 Exit Sub
  
  　　　 End If
  
  　　　’输出驱动器信息
  
  　　　With Picture1
  
  　　　.Cls
  
  　　　.CurrentX = 30: .CurrentY = 30
  
  　　　Picture1.Print“总容量" ＋ Format＄(fsoDrive.TotalSize, _
  
  　　　“＃＃＃,＃＃＃,＃＃＃,＃＃＃,＃＃＃,＃＃0") ＋“ 字节"
  
  　　　Picture1.Print “可用容量" ＋ Format＄(fsoDrive.AvailableSpace, _
  
  　　　“＃＃＃,＃＃＃,＃＃＃,＃＃＃,＃＃＃,＃＃0") ＋ “字节"
  
  　　　Picture1.Print fsoDrive.DriveLetter ＆ “: 使用的文件系统为: " ＆ _
  
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 使用VB中的SERIPTING RUNTIME LIBRARY 相关文章：
• ·使用VB中的SERIPTING RUNTIME LIBRARY
• 使用VB中的SERIPTING RUNTIME LIBRARY 相关软件

上一篇:如何使用VB控件Commom Dialog

下一篇:VB中“会报数的计算器”的基本实现

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐