闹鬼了?

陈大奶么么哒

Suky 发表于 2024-10-29 13:44
[e=1].版本 2

.子程序 目录_创建, 逻辑型, 公开, 创建多级目录，成功返回真，失败返回假。如果指定目录存 ...

我软件是按照每天的日期 比如今天  2024年10月29日  按照这个日期创建文件夹   之前都没问题  今天突然创建不了   返回是真  但实际没创建  然后用精易模块直接在目录下调试又能创建  然后把模块重新编译加载到我软件的源码下  又无法创建   搞不懂什么情况  直接用易语言自带的命令就没问题  也不去浪费时间研究了

Suky

  

子程序名	返回值类型	公开	备 注
目录_创建	逻辑型		创建多级目录，成功返回真，失败返回假。如果指定目录存在也会返回真，不覆盖目录内容。
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

变量名	类 型	静态	数组	备 注
szPath	字节集

szPath ＝ 编码_Ansi到Unicode (目录路径, )
目录_创建W (szPath)
返回 (目录_是否存在W (szPath))

子程序名	返回值类型	公开	备 注
目录_创建W			创建多级目录
参数名	类 型	参考	可空	数组	备 注
目录名	字节集				待创建的目录的全路径

变量名	类 型	静态	数组	备 注
pszPath	整数型
dwSize	整数型
ptr	整数型
sBuf	短整数型
iNum	整数型
i	整数型

dwSize ＝ 取字节集长度 (目录名)
如果真 (dwSize ＜ 8)  ' 不可能少于8个字节的长度，如 G:\1
返回 ()
pszPath ＝ 取指针_字节集型 (目录名)
ptr ＝ LocalAlloc ( #LMEM_ZEROINIT, dwSize ＋ 2)  ' 多申请2个字节，避免传递进来的不规范
变量循环首 (0, dwSize － 2, 2, i)
sBuf ＝ __get_short (pszPath, i)
如果真 (sBuf ＝ 47)  ' /
sBuf ＝ 92  ' \
判断 (sBuf ＝ 0)
CreateDirectoryW (ptr, #NULL )
跳出循环 ()
判断 (sBuf ＝ 92)  ' \
如果真 (iNum ＞ 0)
CreateDirectoryW (ptr, #NULL )
iNum ＝ iNum ＋ 1


__set_short (ptr, i, sBuf)
变量循环尾 ()
LocalFree (ptr)

.版本 2<br /> <br /> .子程序 目录_创建, 逻辑型, 公开, 创建多级目录，成功返回真，失败返回假。如果指定目录存在也会返回真，不覆盖目录内容。<br /> .参数 目录路径, 文本型<br /> .局部变量 szPath, 字节集<br /> <br /> szPath ＝ 编码_Ansi到Unicode (目录路径, )<br /> 目录_创建W (szPath)<br /> 返回 (目录_是否存在W (szPath))<br /> <br /> .子程序 目录_创建W, , 公开, 创建多级目录<br /> .参数 目录名, 字节集, , 待创建的目录的全路径<br /> .局部变量 pszPath, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 ptr, 整数型<br /> .局部变量 sBuf, 短整数型<br /> .局部变量 iNum, 整数型<br /> .局部变量 i, 整数型<br /> <br /> dwSize ＝ 取字节集长度 (目录名)<br /> .如果真 (dwSize ＜ 8)  ' 不可能少于8个字节的长度，如 G:\1<br />     返回 ()<br /> .如果真结束<br /> pszPath ＝ 取指针_字节集型 (目录名)<br /> ptr ＝ LocalAlloc (#LMEM_ZEROINIT, dwSize ＋ 2)  ' 多申请2个字节，避免传递进来的不规范<br /> .变量循环首 (0, dwSize － 2, 2, i)<br />     sBuf ＝ __get_short (pszPath, i)<br />     .如果真 (sBuf ＝ 47)  ' /<br />         sBuf ＝ 92  ' \<br />     .如果真结束<br />     .判断开始 (sBuf ＝ 0)<br />         CreateDirectoryW (ptr, #NULL)<br />         跳出循环 ()<br />     .判断 (sBuf ＝ 92)  ' \<br />         .如果真 (iNum ＞ 0)<br />             CreateDirectoryW (ptr, #NULL)<br />         .如果真结束<br />         iNum ＝ iNum ＋ 1<br />     .默认<br /> <br />     .判断结束<br />     __set_short (ptr, i, sBuf)<br /> .变量循环尾 ()<br /> LocalFree (ptr)

我怀疑可能是编码转换的过程     使得你原本合法路径名变得不合法了
换其他的路径名试试

憨憨问号

搞不好是触发暗桩了