\Device\HarddiskVolume1怎么换成成系统磁盘？

幸福长久

路径是\Device\HarddiskVolume1开头，怎么转换成系统磁盘？

越简单越好

Marvin

  

子程序名	返回值类型	公开	备 注
路径转换	文本型
参数名	类 型	参考	可空	数组	备 注
设备路径	文本型

变量名	类 型	静态	数组	备 注
盘符	文本型
系统路径	文本型

' 获取系统盘符（通常为C盘）
系统路径 ＝ 取文本左边 (取运行目录 (), 3)
盘符 ＝ 字符 (取代码 (系统路径, 1)) ＋ ":"  ' 提取盘符
' 简单的转换逻辑（适用于系统盘）
如果 (寻找文本 (设备路径, "\Device\HarddiskVolume1", , 假) ＝ 1)
返回 (盘符 ＋ 取文本右边 (设备路径, 取文本长度 (设备路径) － 取文本长度 ("\Device\HarddiskVolume1")))
返回 ("")  ' 非系统盘路径

.版本 2<br /> <br /> .子程序 路径转换, 文本型<br /> .参数 设备路径, 文本型<br /> .局部变量 盘符, 文本型<br /> .局部变量 系统路径, 文本型<br /> <br /> ' 获取系统盘符（通常为C盘）<br /> 系统路径 ＝ 取文本左边 (取运行目录 (), 3)<br /> 盘符 ＝ 字符 (取代码 (系统路径, 1)) ＋ ":"  ' 提取盘符<br /> <br /> ' 简单的转换逻辑（适用于系统盘）<br /> .如果 (寻找文本 (设备路径, "\Device\HarddiskVolume1", , 假) ＝ 1)<br />     返回 (盘符 ＋ 取文本右边 (设备路径, 取文本长度 (设备路径) － 取文本长度 ("\Device\HarddiskVolume1")))<br /> .否则<br />     返回 ("")  ' 非系统盘路径<br /> .如果结束

真冬

  

调试输出 (子程序1盘符设备路径cha询 (“T”))  ' cha询T盘
调试输出 (子程序1盘符设备路径cha询 (“5”))  ' cha询Volume5
调试输出 (子程序1盘符设备路径cha询 (“\Device\HarddiskVolume5”))  ' 完整设备路径名cha询

子程序名	返回值类型	公开	备 注
子程序1盘符设备路径cha询	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
局_盘符	整数型
局_路径	文本型

局_路径 ＝ 取空白文本 (260)
如果真 (到大写 (参数) ≥ “A” 且 到大写 (参数) ≤ “Z”)
返回 (取文本左边 (局_路径, QueryDosDeviceA (参数 ＋ “:”, 局_路径, 260)))
变量循环首 ( #A键, #Z键, 1, 局_盘符)
QueryDosDeviceA (字符 (局_盘符) ＋ “:”, 局_路径, 260)
判断 (到小写 (参数) ＝ 到小写 (局_路径))
返回 (字符 (局_盘符))
判断 (取文本右边 (局_路径, 取文本长度 (参数)) ＝ 参数)
返回 (字符 (局_盘符))



变量循环尾 ()
返回 (“”)

DLL命令名	返回值类型	公开	备 注
QueryDosDeviceA	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
QueryDosDeviceA
参数名	类 型	传址	数组	备 注
lpDeviceName	文本型			0
lpTargetPath	文本型			0
ucchMax	整数型			0

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (子程序1盘符设备路径cha询 (“T”))  ' cha询T盘<br /> 调试输出 (子程序1盘符设备路径cha询 (“5”))  ' cha询Volume5<br /> 调试输出 (子程序1盘符设备路径cha询 (“\Device\HarddiskVolume5”))  ' 完整设备路径名cha询<br /> <br /> .子程序 子程序1盘符设备路径cha询, 文本型<br /> .参数 参数, 文本型<br /> .局部变量 局_盘符, 整数型<br /> .局部变量 局_路径, 文本型<br /> <br /> 局_路径 ＝ 取空白文本 (260)<br /> .如果真 (到大写 (参数) ≥ “A” 且 到大写 (参数) ≤ “Z”)<br />     返回 (取文本左边 (局_路径, QueryDosDeviceA (参数 ＋ “:”, 局_路径, 260)))<br /> .如果真结束<br /> .变量循环首 (#A键, #Z键, 1, 局_盘符)<br />     QueryDosDeviceA (字符 (局_盘符) ＋ “:”, 局_路径, 260)<br />     .判断开始 (到小写 (参数) ＝ 到小写 (局_路径))<br />         返回 (字符 (局_盘符))<br />     .判断 (取文本右边 (局_路径, 取文本长度 (参数)) ＝ 参数)<br />         返回 (字符 (局_盘符))<br />     .默认<br /> <br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 返回 (“”)<br /> <br /> .版本 2<br /> <br /> .DLL命令 QueryDosDeviceA, 整数型, "kernel32", "QueryDosDeviceA"<br />     .参数 lpDeviceName, 文本型, , 0<br />     .参数 lpTargetPath, 文本型, , 0<br />     .参数 ucchMax, 整数型, , 0

真冬

  

调试输出 (子程序1盘符设备路径cha询_紧凑递归 (“\Device\HarddiskVolume1”))

子程序名	返回值类型	公开	备 注
子程序1盘符设备路径cha询_紧凑递归	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型
参数2
参数3	文本型

参数3 ＝ 取空白文本 (260)
如果真 (取文本左边 (参数3, QueryDosDeviceA (字符 (参数2 ＋ #A键 ) ＋ “:”, 参数3, 260)) ≠ 参数 且 参数2 ＜ 26)
返回 (子程序1盘符设备路径cha询_紧凑递归 (参数, 参数2 ＋ 1))
返回 (字符 (参数2 ＋ #A键 ))

.版本 2<br /> 调试输出 (子程序1盘符设备路径cha询_紧凑递归 (“\Device\HarddiskVolume1”))<br /> <br /> .子程序 子程序1盘符设备路径cha询_紧凑递归, 文本型<br /> .参数 参数, 文本型<br /> .参数 参数2, , 可空<br /> .参数 参数3, 文本型, 可空<br /> <br /> 参数3 ＝ 取空白文本 (260)<br /> .如果真 (取文本左边 (参数3, QueryDosDeviceA (字符 (参数2 ＋ #A键) ＋ “:”, 参数3, 260)) ≠ 参数 且 参数2 ＜ 26)<br />     返回 (子程序1盘符设备路径cha询_紧凑递归 (参数, 参数2 ＋ 1))<br /> .如果真结束<br /> 返回 (字符 (参数2 ＋ #A键))

更紧凑的代码。不过区分大小写，仅支持完整设备路径名

a86810675

6666666666666666