公司局域网共享软件

路径 ＝ 浏览文件夹 (“选择要共享的文件夹！”, 假)
.如果真 (路径 ≠ “”)
共享名字 ＝ 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假))
.如果真 (共享名字 ＝ “Desktop”)
共享名字 ＝ 子文本替换 (共享名字, “Desktop”, “桌面”, , , 真)
.如果真结束
.如果真 (共享名字 ＝ “”)
共享名字 ＝ “本地磁盘” ＋ “（” ＋ 到大写 (取文本左边 (路径, 寻找文本 (路径, “:”, , 假) － 1)) ＋ “）”
.如果真结束
输入框 (“请输入共享名，一般默认即可！”, “设置共享名”, 共享名字, 共享名字实际, 1)
.如果真 (共享名字实际 ＝ “”)
返回 ()
.如果真结束
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 共享名字实际)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 路径)