VB 中判断E、F盘是否存在

来源：百度知道 编辑：UC知道 时间：2024/05/06 16:58:54
我想在vb 中判断E、F盘是否存在（因为仍旧有些电脑硬盘太小），请帮我编一段程序，如果E盘存在，就将epz赋值为1否则为零，如果F盘存在，就将fpz赋值为1否则为零，当然是一个函数就更好了(∩_∩)
占位………………

Private Sub CheckDisk(ByVal PathString As String, ByVal VarFlag As Long)
On Error GoTo ErrHandle
If Dir(PathString) <> "" Then
VarFlag = 1
End If
Exit Sub

ErrHandle:
MsgBox "不存在" & PathString
VarFlag = 0
End Sub

Private Sub Command1_Click()
CheckDisk "g:\", epz
End Sub

用法已经给出例子了 就是 CheckDisk "你要检查的路径",检查后保存的变量名

你只检查有没有这个盘 那路径使用 "F:\"类似这样的就行了

Sub ShowDriveList()
Dim fs, d, dc, s, n, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & " - "
Select Case d.DriveType
Case 0: t = "未知"
Case 1: t = "可移动磁盘"
Case 2: t = "本地硬盘"
Case 3: t = "网络硬盘"