主题：如何判断电脑上有没有D盘？

打开项目后用了下面的升级代码将升级文件下载到本地电脑的临时目录再升级。

If ftp.Download("\Update\Update2.Zip","D:\UpdateTemporary\Update2.Zip") = True Then '如果下载程序文件成功

    UpdatePath = "D:\UpdateTemporary"

    RemoteUpdate = False

    If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户升级

        '----升级成功重启后删除临时升级目录----

        If FileSys.DirectoryExists("D:\UpdateTemporary") = True Then

            FileSys.DeleteDirectory("D:\UpdateTemporary",2,2)

        End If

    End If

End If

我的问题时，有时候领导的笔记本电脑只有一个C盘，什么东西都是装在一个盘上的，此时没有D盘等 ，要如何判断电脑上有没有D盘呢？

谢谢！