建立文件夹虚拟盘工具

易语言 2020-07-11 17:36:48

建立文件夹虚拟盘工具

写到文件 (取特定目录 (#临时文件目录) + “AppTemp.bat”, 到字节集 (“SUBST >” + 取特定目录 (#临时文件目录) + “Temp.tmp”))
运行 (取特定目录 (#临时文件目录) + “AppTemp.bat”, 真, #隐藏窗口)
临时文本变量 = 到文本 (读入文件 (取特定目录 (#临时文件目录) + “Temp.tmp”))
输出调试文本 (临时文本变量)
临时文本数组A = 分割文本 (临时文本变量, #换行符, )
.如果真 (取数组成员数 (临时文本数组A) = 0)
.如果真 (删首尾空 (临时文本变量) = “”)
返回 ()
.如果真结束
加入成员 (临时文本数组A, 临时文本变量)
.如果真结束
.计次循环首 (取数组成员数 (临时文本数组A), 临时整数变量)
临时文本数组B = 分割文本 (临时文本数组A [临时整数变量], “: =>”, 2)
.如果真 (取数组成员数 (临时文本数组B) > 1)
超级列表框.插入表项 (-1, 删首尾空 (临时文本数组B [1]), , , , )
超级列表框.置标题 (超级列表框.取表项数 () - 1, 1, 删首尾空 (临时文本数组B [2]))
.如果真结束

.计次循环尾 ()

.如果真 (超级列表框.现行选中项 > -1)
.如果真 (信息框 (“您真的要删除虚拟盘 ” + 超级列表框.取标题 (超级列表框.现行选中项, 0) + “ ?”, #询问图标 + #是否钮, “删除虚拟盘”) = #是钮)
写到文件 (取特定目录 (#临时文件目录) + “AppTemp.bat”, 到字节集 (“SUBST ” + 取文本左边 (超级列表框.取标题 (超级列表框.现行选中项, 0), 2) + “ /D>” + 取特定目录 (#临时文件目录) + “Temp.tmp”))
运行 (取特定目录 (#临时文件目录) + “AppTemp.bat”, 真, #隐藏窗口)
_按钮1_被单击 ()
写盘配置 ()