UC知道VB目录编程
来源：百度知道 编辑：UC知道 时间：2024/06/14 16:09:05
1.获取电脑上所有的磁盘，包括本地磁盘，可移动磁盘，光盘，软盘
2.显示磁盘的名称，大小，可用空间
3.判断那些是本地磁盘，那些是光盘，哪些是U盘或移动硬盘等。
4.判断光盘是否是空的。
希望高手给个代码
代码已经测试通过，就是不用For Each该这么版呢，还有就是现在我用数组老提示下标越界。我时现定义 Dim a() as ...
然后在循环赋值 a() = ...的，这么回事，望解答。
2.显示磁盘的名称，大小，可用空间
3.判断那些是本地磁盘，那些是光盘，哪些是U盘或移动硬盘等。
4.判断光盘是否是空的。
希望高手给个代码
代码已经测试通过，就是不用For Each该这么版呢，还有就是现在我用数组老提示下标越界。我时现定义 Dim a() as ...
然后在循环赋值 a() = ...的，这么回事，望解答。
For Each t In CreateObject("Scripting.FileSystemObject").Drives
s = ""
s = s & "磁盘字母:" & t.DriveLetter & vbCrLf
s = s & "磁盘类型:" & Choose(t.DriveType, "可移动磁盘", "硬盘", "网络磁盘", "光驱") & vbCrLf
If t.IsReady Then
s = s & "可用空间:" & t.AvailableSpace & vbCrLf
s = s & "剩余空间:" & t.FreeSpace & vbCrLf
s = s & "总共空间:" & t.TotalSize & vbCrLf
End If
If t.DriveType = 4 Then s = s & "光驱中" & IIf(t.IsReady, "有", "无") & "光碟"
MsgBox s, 48
Next
==========================
很好办哦
参考下面的代码
dim a(), b
for each .......
....
redim preserve a(0 to b)
b=b+1
a(b)=你要赋的值
....
next