|
发表于 2024-3-31 04:22:58
|
显示全部楼层
浙江省杭州市
.版本 2 .子程序 目录_取指定目录, 文本型, 公开, 功能同易自带(末尾不带\) 取特定目录,但功能更强大。 .参数 目录名, 文本型, , 所有 可以以目录开头的常量。 .如果真 (到小写 (目录名) = 到小写 (#目录_系统目录64)) 目录名 = 取空白文本 (255) .如果真 (匿名DLL254_GetSystemWow64DirectoryA (目录名, 255) = 0) 返回 (#空) .如果真结束 返回 (目录名) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_临时目录)) 返回 (读环境变量 (#目录_临时目录)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_安装目录)) 返回 (读环境变量 (#目录_安装目录)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_用户目录)) 返回 (读环境变量 (#目录_用户目录)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_所有用户)) 返回 (读环境变量 (#目录_所有用户)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_程序文件)) 返回 (读环境变量 (#目录_程序文件)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_所有用户_程序文件)) 返回 (读环境变量 (#目录_所有用户_程序文件)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_系统盘)) 返回 (读环境变量 (#目录_系统盘)) .如果真结束 .如果真 (到小写 (目录名) = 到小写 (#目录_系统目录)) 返回 (目录_取系统目录 ()) ' .如果真结束 返回 (取文本注册项 (选择 (到小写 (取文本左边 (目录名, 6)) = “common”, #本地机器, #现行用户), “Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\” + 目录名, )) |
|