枚举已映射盘符例程

易语言 2020-08-22 17:54:24

枚举已映射盘符例程

.子程序 网络_枚举已映射盘符, 整数型, 公开, 枚举系统中已经映射的网络共享盘符,成功返回盘符数,失败返回0
.参数 返回盘符, 文本型, 数组, 用来储存返回的盘符数组,如“Z:”
.局部变量 i, 整数型

.计次循环首 (26, i)
.如果真 (IsNetDrive (i - 1) = 1)
加入成员 (返回盘符, 字符 (64 + i) + “:”)
.如果真结束
处理事件 ()
.计次循环尾 ()
返回 (取数组下标 (返回盘符, ))