找到当前所有逻辑驱动器的根驱动器路径
来源:互联网 发布:域名重定向怎么设置 编辑:程序博客网 时间:2024/05/20 06:28
Declare integer GetDriveType in "kernel32" String
Dgs=0
For I = 65 To 90
vName=Chr(I) + ":"
Lx=GetDriveType(vName)
Do Case
Case Lx=2
Dgs=Dgs+1
wait wind '这是个软盘'
Case Lx=3
Dgs=Dgs+1
wait wind '这是个硬盘'
Case Lx=4
Dgs=Dgs+1
wait wind '这是个可移去式驱动器或网络驱动器'
Case Lx=5
Dgs=Dgs+1
wait wind '这是个光盘'
Case Lx=6
Dgs=Dgs+1
wait wind '这是个RAM盘'
Endc
Endf
Wait wind '本机共有:'+str(Dgs)+'个驱动器'
=================================
(2) 利用GetLogicalDriveStrings函数:
Declare integer GetLogicalDriveStrings in "kernel32" Long, string @cc
CC=Spac(81)
=GetLogicalDriveStrings(81,@cc)
*CC中返回了这样的字符串"a:/ c:/ d:/ e:/ f:/ "每个名字都用一个NULL字符
分隔,在最后一个名字后面用两个NULL表示中止。
X=(len(allt(cc))-1)/4 &&x中包含本机逻辑驱动器个数
*如果你想知道每个具体的驱动器名,则写如下代码:
Dime Dve(X)
For I=1 to X
Dve(I)=Subs(CC,1,3)
CC=Subs(CC,5)
Endf
*这样在Dve这个数组里就是每个驱动器的盘符及":/" 了。
*如果你还想知道每个驱动器的类型,则再添加和改写如下代码:
Declare integer GetDriveType in "kernel32" String
Dime Dve(X,2)
For I=1 to X
Dve(I,1)=Subs(CC,1,3)
Lx=GetDriveType(Dve(I,1))
Do Case
Case Lx=2
Dve(I,2)='软盘'
Case Lx=3
Dve(I,2)='硬盘'
Case Lx=4
Dve(I,2)='可移去式驱动器或网络驱动器'
Case Lx=5
Dve(I,2)='光盘'
Case Lx=6
Dve(I,2)='RAM盘'
Endc
CC=Subs(CC,5)
Endf
- 找到当前所有逻辑驱动器的根驱动器路径
- C/C++ 获取当前所有逻辑驱动器的根驱动器路径
- 2017.07.02 获取系统中所有驱动器的根路径和驱动器属性(版本一)
- 逻辑驱动器的得到
- VC中如何获取当前计算机中所有逻辑驱动器的数目和盘符
- VC中获取当前计算机中所有逻辑驱动器的数目和盘符
- 删除逻辑驱动器后的数据回复
- 检测逻辑驱动器
- 获取逻辑驱动器信息
- C#控制台基础 获取电脑上的所有逻辑驱动器的名称,可用空间,总空间
- 方法:如何获取操作系统所有分区(逻辑驱动器)
- Window 重置所有网络驱动器的命令
- 显示当前驱动器号
- 遍历逻辑驱动器片断code
- 遍历逻辑驱动器片断code
- error:解析 GetLogicalDriveStrings 获得的 逻辑驱动器 的字符串 出错
- WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串
- 删除逻辑驱动器后的数据恢复操作方法(转)
- 疯狂英语365句
- SQL SERVER中top的问题?
- 浅谈DOTNET大规模团队开发控制与asp.net中webform的viewstate
- MySQL Bot
- 学会一招
- 找到当前所有逻辑驱动器的根驱动器路径
- 如何用编程获取CD-ROM的驱动器盘符?
- vc中treeview显示磁盘目录和文件代码
- 搜 索 计 算 机 中 所 有 驱 动 器
- 自 编 删 除 目 录 及 其 下 属 文 件 的 函 数
- 应用进程实现对其他应用程序的调用
- 系统再次崩溃,又要重装,苦不堪言
- 持续动力
- [收藏]J2EE初学者需要理解的五个问题