如何用VB获取一个磁盘的值

来源：百度知道 编辑：UC知道 时间：2024/05/18 08:24:29
我想判断每个盘的文件是否存在。用drive
比如，我选择D盘时就判断D盘下有1.exe文件是否存在，
选择E：盘是就就判断E盘。，并返回一个值

在form中放置一个drivelistbox，然后粘贴下面代码。运行时选择一下驱动器就可看到效果：

Private Sub Drive1_Change()
tmp = Drive1.Drive & "\1.exe" '"\1.exe是文件路径，前面必须要有斜杠"
If Dir(tmp) <> "" Then MsgBox tmp & " 存在！" Else MsgBox tmp & " 不存在！"
End Sub

Private Sub Drive1_Change()
MsgBox IIf(Len(Dir(Left(Drive1.Drive, 2) & "\1.exe")) = 0, "不存在", "存在")
End Sub