|
发表于 2025-2-28 02:54:04
|
显示全部楼层
广东省广州市
.版本 2
.支持库 shell
.子程序 创建目录映射, 逻辑型
.参数 目标路径, 文本型 ' 如"C:\MyMappedFolder"
.参数 源路径, 文本型 ' 如"D:\SourceFolder"
.局部变量 命令行, 文本型
.局部变量 结果, 整数型
' 检查路径有效性
.如果真 (目录是否存在(源路径) = 假)
信息框("源文件夹不存在", 0, , )
返回 (假)
.如果真结束
' 构造mklink命令(需要管理员权限)
命令行 = "cmd /c mklink /D " + #引号 + 目标路径 + #引号 + " " + #引号 + 源路径 + #引号
' 提升权限执行命令
结果 = 执行命令(命令行, 真)
.判断开始 (结果 = 0)
信息框("映射创建成功", 0, "提示", )
返回 (真)
.默认
信息框("映射创建失败,请用管理员权限运行", 0, "错误", )
返回 (假)
.判断结束
.子程序 执行命令, 整数型
.参数 命令行, 文本型
.参数 是否显示窗口, 逻辑型
.局部变量 执行信息, 整数型
返回 (运行 (#引号 + "cmd.exe" + #引号 + " /c " + 命令行, 是否显示窗口, ))
' 使用示例:
创建目录映射("C:\MyData", "D:\ActualData")
|
|