Question

VB 如何获取最后一个分区盘符。

Answer 1

PathFileExistsA
GetDriveType
GetLogicalDriveStrings

s三个API用法百度一下吧，
这个是在易语言资源网找的源码，跟VB差不多

.版本 2
.支持库 iext

.局部变量 所有盘符, 字节集
.局部变量 盘符, 字节集, , "0"
.局部变量 返回值, 整数型
.局部变量 索引, 整数型

所有盘符 ＝ 取空白字节集 (256)
返回值 ＝ GetLogicalDriveStrings (256, 所有盘符)
所有盘符 ＝ 取字节集左边 (所有盘符, 返回值)
盘符 ＝ 分割字节集 (所有盘符, { 0 }, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (盘符), 索引)
.如果真 (GetDriveType (到文本 (盘符 [索引])) ＝ 2)
超级列表框1.置标题 (超级列表框1.插入表项 (-1, 到文本 (盘符 [索引]), , , , ), 1, “移动盘”)
.如果真结束
.如果真 (GetDriveType (到文本 (盘符 [索引])) ＝ 3)
超级列表框1.置标题 (超级列表框1.插入表项 (-1, 到文本 (盘符 [索引]), , , , ), 1, “固定硬盘”)
.如果真结束
.如果真 (GetDriveType (到文本 (盘符 [索引])) ＝ 4)
超级列表框1.置标题 (超级列表框1.插入表项 (-1, 到文本 (盘符 [索引]), , , , ), 1, “网络驱动器”)
.如果真结束
.如果真 (GetDriveType (到文本 (盘符 [索引])) ＝ 5)
超级列表框1.置标题 (超级列表框1.插入表项 (-1, 到文本 (盘符 [索引]), , , , ), 1, “光驱”)
.如果真结束
.如果真 (GetDriveType (到文本 (盘符 [索引])) ＝ 6)
超级列表框1.置标题 (超级列表框1.插入表项 (-1, 到文本 (盘符 [索引]), , , , ), 1, “虚拟盘”)
.如果真结束

.计次循环尾 ()