为什么我无法修改共享路径？在线等！

wlsk888

测试函数：

  

子程序名	返回值类型	公开	备 注
共享_修改路径	逻辑型
参数名	类 型	参考	可空	数组	备 注
sShareName	文本型				共享名称
sSharePath	文本型				共享路径
sServer	文本型				远程服务器的 DNS 或 NetBIOS 名称，默认为本机名
error_info	文本型				返回文本错误描述

变量名	类 型	静态	数组	备 注
success	整数型
lngServer	整数型
lngNetname	整数型
bufptr	整数型
局_共享名	字节集
局_共享服务器名	字节集
局_共享路径	字节集
局_返回值	逻辑型
shi1	SHARE_INFO_2
ret	整数型
shi2	SHARE_INFO_2
bufptr1	整数型
success1	整数型

局_返回值 ＝ 假
局_共享名 ＝ Ansi到Unicode (sShareName, 0)
判断循环首 (取文本右边 (sSharePath, 1) ＝ “\”)
sSharePath ＝ 取文本左边 (sSharePath, 取文本长度 (sSharePath) － 1)
判断循环尾 ()
如果真 (目录_是否存在 (sSharePath) ＝ 假)
返回 (局_返回值)
局_共享路径 ＝ Ansi到Unicode (sSharePath, 0)
如果 (是否为空 (sServer))
局_共享服务器名 ＝ Ansi到Unicode (取主机名 (), 0)
局_共享服务器名 ＝ Ansi到Unicode (sServer, 0)
lngServer ＝ 取变量数据地址 (局_共享服务器名)  ' 转成地址
lngNetname ＝ 取变量数据地址 (局_共享名)
success ＝ NetShareGetInfo (lngServer, lngNetname, 2, bufptr)
如果 (success ＝ 0)
拷贝内存_共享 (shi1, bufptr, 32)
调试输出 (文本_指针到文本W (shi1.共享资源路径))
如果 (文本_指针到文本W (shi1.共享资源路径) ＝ sSharePath)
局_返回值 ＝ 真
调试输出 (“修改前最大用户数：”, shi1.最大用户数)
调试输出 (“修改前共享资源路径：”, 文本_指针到文本W (shi1.共享资源路径))
shi1.最大用户数 ＝ 10
shi1.共享资源路径 ＝ 取变量数据地址 (局_共享路径)
调试输出 (“修改中最大用户数：”, shi1.最大用户数)
调试输出 (“修改中共享资源路径：”, 文本_指针到文本W (shi1.共享资源路径))
ret ＝ NetShareSetInfo (lngServer, lngNetname, 2, shi1, 0)
如果 (ret ＝ 0)
success1 ＝ NetShareGetInfo (lngServer, lngNetname, 2, bufptr1)
如果 (success1 ＝ 0)
拷贝内存_共享 (shi2, bufptr1, 32)
调试输出 (“修改后最大用户数：”, shi2.最大用户数)
调试输出 (“修改后共享资源路径：”, 文本_指针到文本W (shi2.共享资源路径))


NetApiBufferFree (bufptr1)
局_返回值 ＝ 真
调试输出 (ret)


调试输出 (success)
NetApiBufferFree (bufptr)
返回 (局_返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 共享_修改路径, 逻辑型<br /> .参数 sShareName, 文本型, , 共享名称<br /> .参数 sSharePath, 文本型, , 共享路径<br /> .参数 sServer, 文本型, 可空, 远程服务器的 DNS 或 NetBIOS 名称，默认为本机名<br /> .参数 error_info, 文本型, 可空, 返回文本错误描述<br /> .局部变量 success, 整数型<br /> .局部变量 lngServer, 整数型<br /> .局部变量 lngNetname, 整数型<br /> .局部变量 bufptr, 整数型<br /> .局部变量 局_共享名, 字节集<br /> .局部变量 局_共享服务器名, 字节集<br /> .局部变量 局_共享路径, 字节集<br /> .局部变量 局_返回值, 逻辑型<br /> .局部变量 shi1, SHARE_INFO_2<br /> .局部变量 ret, 整数型<br /> .局部变量 shi2, SHARE_INFO_2<br /> .局部变量 bufptr1, 整数型<br /> .局部变量 success1, 整数型<br /> <br /> 局_返回值 ＝ 假<br /> 局_共享名 ＝ Ansi到Unicode (sShareName, 0)<br /> .判断循环首 (取文本右边 (sSharePath, 1) ＝ “\”)<br />     sSharePath ＝ 取文本左边 (sSharePath, 取文本长度 (sSharePath) － 1)<br /> .判断循环尾 ()<br /> .如果真 (目录_是否存在 (sSharePath) ＝ 假)<br />     返回 (局_返回值)<br /> .如果真结束<br /> 局_共享路径 ＝ Ansi到Unicode (sSharePath, 0)<br /> .如果 (是否为空 (sServer))<br />     局_共享服务器名 ＝ Ansi到Unicode (取主机名 (), 0)<br /> .否则<br />     局_共享服务器名 ＝ Ansi到Unicode (sServer, 0)<br /> .如果结束<br /> lngServer ＝ 取变量数据地址 (局_共享服务器名)  ' 转成地址<br /> lngNetname ＝ 取变量数据地址 (局_共享名)<br /> success ＝ NetShareGetInfo (lngServer, lngNetname, 2, bufptr)<br /> .如果 (success ＝ 0)<br />     拷贝内存_共享 (shi1, bufptr, 32)<br />     调试输出 (文本_指针到文本W (shi1.共享资源路径))<br />     .如果 (文本_指针到文本W (shi1.共享资源路径) ＝ sSharePath)<br />         局_返回值 ＝ 真<br />     .否则<br />         调试输出 (“修改前最大用户数：”, shi1.最大用户数)<br />         调试输出 (“修改前共享资源路径：”, 文本_指针到文本W (shi1.共享资源路径))<br />         shi1.最大用户数 ＝ 10<br />         shi1.共享资源路径 ＝ 取变量数据地址 (局_共享路径)<br />         调试输出 (“修改中最大用户数：”, shi1.最大用户数)<br />         调试输出 (“修改中共享资源路径：”, 文本_指针到文本W (shi1.共享资源路径))<br />         ret ＝ NetShareSetInfo (lngServer, lngNetname, 2, shi1, 0)<br />         .如果 (ret ＝ 0)<br />             success1 ＝ NetShareGetInfo (lngServer, lngNetname, 2, bufptr1)<br />             .如果 (success1 ＝ 0)<br />                 拷贝内存_共享 (shi2, bufptr1, 32)<br />                 调试输出 (“修改后最大用户数：”, shi2.最大用户数)<br />                 调试输出 (“修改后共享资源路径：”, 文本_指针到文本W (shi2.共享资源路径))<br />             .否则<br /> <br />             .如果结束<br />             NetApiBufferFree (bufptr1)<br />             局_返回值 ＝ 真<br />         .否则<br />             调试输出 (ret)<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则<br />     调试输出 (success)<br /> .如果结束<br /> NetApiBufferFree (bufptr)<br /> 返回 (局_返回值)

测试结果：显示最大用户数正常修改，但共享资源路径修改无效？为什么？

开始运行被调试程序
* “D:\易语言\易语言作者项目管理器源码\项目目录\PXE服务端\file”
* “修改前最大用户数：” | -1
* “修改前共享资源路径：” | “D:\file”
* “修改中最大用户数：” | 10
* “修改中共享资源路径：” | “D:\aaa”
* “修改后最大用户数：” | 10
* “修改后共享资源路径：” | “D:\file”
* 真
被调试易程序运行完毕

wlsk888

已自己解决！，参见：https://bbs.125.la/forum.php?mod ... 14835522&extra=