Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断电脑上有没有D盘？


  共有2165人关注过本帖树形打印复制链接

主题：如何判断电脑上有没有D盘？
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		如何判断电脑上有没有D盘？  发帖心情 Post By：2016/2/20 16:55:00 [只看该作者]

打开项目后用了下面的升级代码将升级文件下载到本地电脑的临时目录再升级。
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盘呢？
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/2/20 17:13:00 [只看该作者]

获取所有盘符，放到命令窗口测试

Dim selectQuery As New Management.SelectQuery("sel ect * fro m win32_logicaldisk")
Dim searcher As New Management.ManagementObjectSearcher(selectQuery)
For Each disk As Management.ManagementObject In searcher.Get()
    
    Dim nType = CInt(disk("DriveType"))
    If (nType <> CInt(IO.DriveType.Fixed)) Then
        Continue For
    Else
        Output.Show(disk("DeviceID").ToString())
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/2/20 17:14:00 [只看该作者]

sql的关键字空格去掉

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/2/20 17:16:00 [只看该作者]

直接判断就可以

    Output.Show(FileSys.DirectoryExists("D:\") )
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询