求大神给我写个选择磁盘改修文件夹名称案例

南港清风

熬夜 发表于 2025-8-21 15:18
方法二

我是不会写

南港清风

wangjus 发表于 2025-8-21 15:20
.版本 2

.子程序 _按钮1_被单击

弄个选择磁盘文件夹 那样我还可以直接写入文件
也可以不用不定选择为止可以是任意磁盘

南港清风

熬夜 发表于 2025-8-21 15:18
方法二

哥哥我是不会写 道理我是懂的

熬夜

程序.rar (450.33 KB, 下载次数: 2)

2025-8-21 16:26 上传

点击文件名下载附件

南港清风

我想只有2个部分 选择磁盘 选择一次或者2次文件夹锁定完事

南港清风

熬夜 发表于 2025-8-21 16:26

您看看我发的那个新图片

南港清风

wangjus 发表于 2025-8-21 15:20
.版本 2

.子程序 _按钮1_被单击

您看看我发的那个新图片

熬夜

目录你自己弄  初始目录=取运行目录 () 自己改

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击

通用对话框1.类型 ＝ 0  ' 0打开 1保存
通用对话框1.过滤器 ＝ “文本文档（*.txt）|*.txt”
通用对话框1.默认文件后缀 ＝ “.txt”
通用对话框1.初始目录 ＝ 取运行目录 ()
如果真 (通用对话框1.打开 () ＝ 假)
返回 ()

编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))

.版本 2<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 通用对话框1.类型 ＝ 0  ' 0打开 1保存<br /> 通用对话框1.过滤器 ＝ “文本文档（*.txt）|*.txt”<br /> 通用对话框1.默认文件后缀 ＝ “.txt”<br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> .如果真 (通用对话框1.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> 编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))

wangjus

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 名字1, 文本型
.局部变量 名字2, 文本型
.局部变量 名字临时, 文本型
.局部变量 盘符, 文本型, , "0"
.局部变量 n, 整数型

盘符 ＝ { “C”, “D”, “E”, “F”, “G”, “H”, “I” }  ' 可继续扩展
.计次循环首 (取数组成员数 (盘符), n)
    .如果真 (文件是否存在 (盘符 [n] ＋ “:\AutumnBox2.3\AntiCheatExpert”))
        名字1 ＝ 盘符 [n] ＋ “:\AutumnBox2.3\AntiCheatExpert”
        名字2 ＝ 盘符 [n] ＋ “:\AutumnBox2.3\AntiCheatExpert假”
        名字临时 ＝ 盘符 [n] ＋ “:\AutumnBox2.3\AntiCheatExpert-1”
        文件更名 (名字1, 名字临时)
        文件更名 (名字2, 名字1)
        文件更名 (名字临时, 名字2)
        调试输出 (“改名成功,文件在” ＋ 盘符 [n] ＋ “盘”)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()


补充内容 (2025-8-22 09:46):
修改了一个可自动选择盘符

wangjus

南港清风 发表于 2025-8-21 16:02
能写个选择路径嘛，名字1 ＝ “D:\AutumnBox2.3\AntiCheatExpert”
名字2 ＝ “D:\AutumnBox2.3\AntiChea ...

已修改自动选择路径