实测AI生成代码，只有两个错误地方，新手入门超快速！

ruilikeji

借论坛宝地给新手朋友演示ai的强大，方便入门，大神略过，新手欢迎留言讨论！


先贴原始代码：




上AI生成的原始代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化
组合框1.加入项目 (“分钟”, )
组合框1.加入项目 (“小时”, )
组合框1.现行选中项 ＝ 0
数值框1.内容 ＝ 10  ' 默认10分钟备份一次
时钟1.时钟周期 ＝ 0
日志 (“程序启动成功，请选择目录后开始备份”)

子程序名	返回值类型	公开	备 注
日志
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
当前时间	文本型

当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))
编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符 )
编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容)

子程序名	返回值类型	公开	备 注
_按钮_选择源目录_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, )
如果真 (路径 ≠ “”)
编辑框_源目录.内容 ＝ 路径
日志 (“已选择源目录：” ＋ 路径)

子程序名	返回值类型	公开	备 注
_按钮_选择备份目录_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“请选择备份保存目录”, )
如果真 (路径 ≠ “”)
编辑框_备份目录.内容 ＝ 路径
日志 (“已选择备份目录：” ＋ 路径)

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

变量名	类 型	静态	数组	备 注
间隔秒数	整数型

' 校验目录
如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)
信息框 (“请先选择源目录和备份目录！”, 0, , )
返回 ()

' 计算时钟周期
判断 (组合框1.现行选中项 ＝ 0)  ' 分钟
间隔秒数 ＝ 数值框1.内容 × 60 × 1000
判断 (组合框1.现行选中项 ＝ 1)  ' 小时
间隔秒数 ＝ 数值框1.内容 × 3600 × 1000
间隔秒数 ＝ 10 × 60 × 1000

时钟1.时钟周期 ＝ 间隔秒数
按钮_开始.禁止 ＝ 真
按钮_停止.禁止 ＝ 假
日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))
执行备份 ()  ' 立即执行一次

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

时钟1.时钟周期 ＝ 0
按钮_开始.禁止 ＝ 假
按钮_停止.禁止 ＝ 真
日志 (“● 定时备份已停止”)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

日志 (“===== 开始自动备份 =====”)
执行备份 ()

子程序名	返回值类型	公开	备 注
执行备份

变量名	类 型	静态	数组	备 注
源目录	文本型
备份根目录	文本型
时间名称	文本型
目标目录	文本型

源目录 ＝ 编辑框_源目录.内容
备份根目录 ＝ 编辑框_备份目录.内容
' 校验目录是否存在
如果真 (文件是否存在 (源目录) ＝ 假)
日志 (“错误：源目录不存在！”)
返回 ()

' 生成带时间戳的备份文件夹名
时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , )
时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , )
目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称
' 复制目录
如果 (复制文件夹 (源目录, 目标目录))
日志 (“备份成功 → ” ＋ 目标目录)
日志 (“备份失败！请检查权限或目录是否被占用”)

子程序名	返回值类型	公开	备 注
复制文件夹	逻辑型
参数名	类 型	参考	可空	数组	备 注
源目录	文本型
目标目录	文本型

变量名	类 型	静态	数组	备 注
fso	对象
结果	逻辑型

fso.创建 (“Scripting.FileSystemObject”)
如果真 (fso.是否为空 () ＝ 假)
目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , 真)
源目录 ＝ 子文本替换 (源目录, “/”, “\”, , 真)
fso.方法 (“CopyFolder”, 源目录, 目标目录)
结果 ＝ 真
fso.清除 ()

返回 (结果)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> ' 初始化<br /> 组合框1.加入项目 (“分钟”, )<br /> 组合框1.加入项目 (“小时”, )<br /> 组合框1.现行选中项 ＝ 0<br /> 数值框1.内容 ＝ 10  ' 默认10分钟备份一次<br /> 时钟1.时钟周期 ＝ 0<br /> 日志 (“程序启动成功，请选择目录后开始备份”)<br /> <br /> .子程序 日志, , 公开<br /> .参数 文本, 文本型<br /> .局部变量 当前时间, 文本型<br /> <br /> 当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))<br /> 编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符)<br /> 编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容)<br /> <br /> .子程序 _按钮_选择源目录_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, )<br /> .如果真 (路径 ≠ “”)<br />     编辑框_源目录.内容 ＝ 路径<br />     日志 (“已选择源目录：” ＋ 路径)<br /> .如果真结束<br /> <br /> .子程序 _按钮_选择备份目录_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“请选择备份保存目录”, )<br /> .如果真 (路径 ≠ “”)<br />     编辑框_备份目录.内容 ＝ 路径<br />     日志 (“已选择备份目录：” ＋ 路径)<br /> .如果真结束<br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 间隔秒数, 整数型<br /> <br /> ' 校验目录<br /> .如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)<br />     信息框 (“请先选择源目录和备份目录！”, 0, , )<br />     返回 ()<br /> .如果结束<br /> <br /> ' 计算时钟周期<br /> .判断开始 (组合框1.现行选中项 ＝ 0)  ' 分钟<br />     间隔秒数 ＝ 数值框1.内容 × 60 × 1000<br /> .判断 (组合框1.现行选中项 ＝ 1)  ' 小时<br />     间隔秒数 ＝ 数值框1.内容 × 3600 × 1000<br /> .默认<br />     间隔秒数 ＝ 10 × 60 × 1000<br /> .判断结束<br /> <br /> 时钟1.时钟周期 ＝ 间隔秒数<br /> 按钮_开始.禁止 ＝ 真<br /> 按钮_停止.禁止 ＝ 假<br /> 日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))<br /> 执行备份 ()  ' 立即执行一次<br /> <br /> .子程序 _按钮_停止_被单击<br /> 时钟1.时钟周期 ＝ 0<br /> 按钮_开始.禁止 ＝ 假<br /> 按钮_停止.禁止 ＝ 真<br /> 日志 (“● 定时备份已停止”)<br /> <br /> .子程序 _时钟1_周期事件<br /> 日志 (“===== 开始自动备份 =====”)<br /> 执行备份 ()<br /> <br /> .子程序 执行备份<br /> .局部变量 源目录, 文本型<br /> .局部变量 备份根目录, 文本型<br /> .局部变量 时间名称, 文本型<br /> .局部变量 目标目录, 文本型<br /> <br /> 源目录 ＝ 编辑框_源目录.内容<br /> 备份根目录 ＝ 编辑框_备份目录.内容<br /> <br /> ' 校验目录是否存在<br /> .如果真 (文件是否存在 (源目录) ＝ 假)<br />     日志 (“错误：源目录不存在！”)<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 生成带时间戳的备份文件夹名<br /> 时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , )<br /> 时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , )<br /> 目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称<br /> <br /> ' 复制目录<br /> .如果 (复制文件夹 (源目录, 目标目录))<br />     日志 (“备份成功 → ” ＋ 目标目录)<br /> .否则<br />     日志 (“备份失败！请检查权限或目录是否被占用”)<br /> .如果结束<br /> <br /> .子程序 复制文件夹, 逻辑型<br /> .参数 源目录, 文本型<br /> .参数 目标目录, 文本型<br /> .局部变量 fso, 对象<br /> .局部变量 结果, 逻辑型<br /> <br /> fso.创建 (“Scripting.FileSystemObject”)<br /> .如果真 (fso.是否为空 () ＝ 假)<br />     目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , 真)<br />     源目录 ＝ 子文本替换 (源目录, “/”, “\”, , 真)<br />     fso.方法 (“CopyFolder”, 源目录, 目标目录)<br />     结果 ＝ 真<br />     fso.清除 ()<br /> .如果真结束<br /> <br /> 返回 (结果)

以上为原始数据，以下贴出修正错误后的代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化
组合框1.加入项目 (“分钟”, )
组合框1.加入项目 (“小时”, )
组合框1.现行选中项 ＝ 0
数值框1.内容 ＝ “10”  ' 默认10分钟备份一次
时钟1.时钟周期 ＝ 0
日志 (“程序启动成功，请选择目录后开始备份”)

子程序名	返回值类型	公开	备 注
日志
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
当前时间	文本型

当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))
编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符 )
编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容)

子程序名	返回值类型	公开	备 注
_按钮_选择源目录_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, )
如果真 (路径 ≠ “”)
编辑框_源目录.内容 ＝ 路径
日志 (“已选择源目录：” ＋ 路径)

子程序名	返回值类型	公开	备 注
_按钮_选择备份目录_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“请选择备份保存目录”, )
如果真 (路径 ≠ “”)
编辑框_备份目录.内容 ＝ 路径
日志 (“已选择备份目录：” ＋ 路径)

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

变量名	类 型	静态	数组	备 注
间隔秒数	整数型

' 校验目录
如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)
信息框 (“请先选择源目录和备份目录！”, 0, , )
返回 ()



' 计算时钟周期
判断 (组合框1.现行选中项 ＝ 0)  ' 分钟
间隔秒数 ＝ 到整数 (数值框1.内容) × 60 × 1000
判断 (组合框1.现行选中项 ＝ 1)  ' 小时
间隔秒数 ＝ 到整数 (数值框1.内容) × 3600 × 1000
间隔秒数 ＝ 10 × 60 × 1000

时钟1.时钟周期 ＝ 间隔秒数
按钮_开始.禁止 ＝ 真
按钮_停止.禁止 ＝ 假
日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))
执行备份 ()  ' 立即执行一次

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

时钟1.时钟周期 ＝ 0
按钮_开始.禁止 ＝ 假
按钮_停止.禁止 ＝ 真
日志 (“● 定时备份已停止”)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

日志 (“===== 开始自动备份 =====”)
执行备份 ()

子程序名	返回值类型	公开	备 注
执行备份

变量名	类 型	静态	数组	备 注
源目录	文本型
备份根目录	文本型
时间名称	文本型
目标目录	文本型

源目录 ＝ 编辑框_源目录.内容
备份根目录 ＝ 编辑框_备份目录.内容
' 校验目录是否存在
如果真 (文件是否存在 (源目录) ＝ 假)
日志 (“错误：源目录不存在！”)
返回 ()

' 生成带时间戳的备份文件夹名
时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , , 真)
时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , , 真)
目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称
' 复制目录
如果 (复制文件夹 (源目录, 目标目录))
日志 (“备份成功 → ” ＋ 目标目录)
日志 (“备份失败！请检查权限或目录是否被占用”)

子程序名	返回值类型	公开	备 注
复制文件夹	逻辑型
参数名	类 型	参考	可空	数组	备 注
源目录	文本型
目标目录	文本型

变量名	类 型	静态	数组	备 注
fso	对象
结果	逻辑型

fso.创建 (“Scripting.FileSystemObject”, )
如果真 (fso.是否为空 () ＝ 假)
目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , , 真)
源目录 ＝ 子文本替换 (源目录, “/”, “\”, , , 真)
fso.方法 (“CopyFolder”, 源目录, 目标目录)
结果 ＝ 真
fso.清除 ()

返回 (结果)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 初始化<br /> 组合框1.加入项目 (“分钟”, )<br /> 组合框1.加入项目 (“小时”, )<br /> 组合框1.现行选中项 ＝ 0<br /> 数值框1.内容 ＝ “10”  ' 默认10分钟备份一次<br /> 时钟1.时钟周期 ＝ 0<br /> 日志 (“程序启动成功，请选择目录后开始备份”)<br /> <br /> .子程序 日志, , 公开<br /> .参数 文本, 文本型<br /> .局部变量 当前时间, 文本型<br /> <br /> 当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))<br /> 编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符)<br /> 编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容)<br /> <br /> .子程序 _按钮_选择源目录_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, )<br /> .如果真 (路径 ≠ “”)<br />     编辑框_源目录.内容 ＝ 路径<br />     日志 (“已选择源目录：” ＋ 路径)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_选择备份目录_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“请选择备份保存目录”, )<br /> .如果真 (路径 ≠ “”)<br />     编辑框_备份目录.内容 ＝ 路径<br />     日志 (“已选择备份目录：” ＋ 路径)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 间隔秒数, 整数型<br /> <br /> ' 校验目录<br /> .如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)<br />     信息框 (“请先选择源目录和备份目录！”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 计算时钟周期<br /> .判断开始 (组合框1.现行选中项 ＝ 0)  ' 分钟<br />     间隔秒数 ＝ 到整数 (数值框1.内容) × 60 × 1000<br /> .判断 (组合框1.现行选中项 ＝ 1)  ' 小时<br />     间隔秒数 ＝ 到整数 (数值框1.内容) × 3600 × 1000<br /> .默认<br />     间隔秒数 ＝ 10 × 60 × 1000<br /> .判断结束<br /> <br /> 时钟1.时钟周期 ＝ 间隔秒数<br /> 按钮_开始.禁止 ＝ 真<br /> 按钮_停止.禁止 ＝ 假<br /> 日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))<br /> 执行备份 ()  ' 立即执行一次<br /> <br /> .子程序 _按钮_停止_被单击<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> 按钮_开始.禁止 ＝ 假<br /> 按钮_停止.禁止 ＝ 真<br /> 日志 (“● 定时备份已停止”)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 日志 (“===== 开始自动备份 =====”)<br /> 执行备份 ()<br /> <br /> .子程序 执行备份<br /> .局部变量 源目录, 文本型<br /> .局部变量 备份根目录, 文本型<br /> .局部变量 时间名称, 文本型<br /> .局部变量 目标目录, 文本型<br /> <br /> 源目录 ＝ 编辑框_源目录.内容<br /> 备份根目录 ＝ 编辑框_备份目录.内容<br /> <br /> ' 校验目录是否存在<br /> .如果真 (文件是否存在 (源目录) ＝ 假)<br />     日志 (“错误：源目录不存在！”)<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 生成带时间戳的备份文件夹名<br /> 时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , , 真)<br /> 时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , , 真)<br /> 目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称<br /> <br /> ' 复制目录<br /> .如果 (复制文件夹 (源目录, 目标目录))<br />     日志 (“备份成功 → ” ＋ 目标目录)<br /> .否则<br />     日志 (“备份失败！请检查权限或目录是否被占用”)<br /> .如果结束<br /> <br /> <br /> .子程序 复制文件夹, 逻辑型<br /> .参数 源目录, 文本型<br /> .参数 目标目录, 文本型<br /> .局部变量 fso, 对象<br /> .局部变量 结果, 逻辑型<br /> <br /> fso.创建 (“Scripting.FileSystemObject”, )<br /> .如果真 (fso.是否为空 () ＝ 假)<br />     目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , , 真)<br />     源目录 ＝ 子文本替换 (源目录, “/”, “\”, , , 真)<br />     fso.方法 (“CopyFolder”, 源目录, 目标目录)<br />     结果 ＝ 真<br />     fso.清除 ()<br /> .如果真结束<br /> <br /> 返回 (结果)

详细修改位置：
间隔秒数 ＝ 到整数 (数值框1.内容) × 60 × 1000
    间隔秒数 ＝ 到整数 (数值框1.内容) × 3600 × 1000
数值框1.内容 ＝ “10”  ' 默认10分钟备份一次

最终效果演示：


.版本 2.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕' 初始化组合框1.加入项目 (“分钟”, )组合框1.加入项目 (“小时”, )组合框1.现行选中项 ＝ 0数值框1.内容 ＝ 10  ' 默认10分钟备份一次时钟1.时钟周期 ＝ 0日志 (“程序启动成功，请选择目录后开始备份”).子程序 日志, , 公开.参数 文本, 文本型.局部变量 当前时间, 文本型当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符)编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容).子程序 _按钮_选择源目录_被单击.局部变量 路径, 文本型路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, ).如果真 (路径 ≠ “”)    编辑框_源目录.内容 ＝ 路径    日志 (“已选择源目录：” ＋ 路径).如果真结束.子程序 _按钮_选择备份目录_被单击.局部变量 路径, 文本型路径 ＝ 浏览文件夹 (“请选择备份保存目录”, ).如果真 (路径 ≠ “”)    编辑框_备份目录.内容 ＝ 路径    日志 (“已选择备份目录：” ＋ 路径).如果真结束.子程序 _按钮_开始_被单击.局部变量 间隔秒数, 整数型' 校验目录.如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)    信息框 (“请先选择源目录和备份目录！”, 0, , )    返回 ().如果结束' 计算时钟周期.判断开始 (组合框1.现行选中项 ＝ 0)  ' 分钟    间隔秒数 ＝ 数值框1.内容 × 60 × 1000.判断 (组合框1.现行选中项 ＝ 1)  ' 小时    间隔秒数 ＝ 数值框1.内容 × 3600 × 1000.默认    间隔秒数 ＝ 10 × 60 × 1000.判断结束时钟1.时钟周期 ＝ 间隔秒数按钮_开始.禁止 ＝ 真按钮_停止.禁止 ＝ 假日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))执行备份 ()  ' 立即执行一次.子程序 _按钮_停止_被单击时钟1.时钟周期 ＝ 0按钮_开始.禁止 ＝ 假按钮_停止.禁止 ＝ 真日志 (“● 定时备份已停止”).子程序 _时钟1_周期事件日志 (“===== 开始自动备份 =====”)执行备份 ().子程序 执行备份.局部变量 源目录, 文本型.局部变量 备份根目录, 文本型.局部变量 时间名称, 文本型.局部变量 目标目录, 文本型源目录 ＝ 编辑框_源目录.内容备份根目录 ＝ 编辑框_备份目录.内容' 校验目录是否存在.如果真 (文件是否存在 (源目录) ＝ 假)    日志 (“错误：源目录不存在！”)    返回 ().如果真结束' 生成带时间戳的备份文件夹名时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , )时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , )目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称' 复制目录.如果 (复制文件夹 (源目录, 目标目录))    日志 (“备份成功 → ” ＋ 目标目录).否则    日志 (“备份失败！请检查权限或目录是否被占用”).如果结束.子程序 复制文件夹, 逻辑型.参数 源目录, 文本型.参数 目标目录, 文本型.局部变量 fso, 对象.局部变量 结果, 逻辑型fso.创建 (“Scripting.FileSystemObject”).如果真 (fso.是否为空 () ＝ 假)    目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , 真)    源目录 ＝ 子文本替换 (源目录, “/”, “\”, , 真)    fso.方法 (“CopyFolder”, 源目录, 目标目录)    结果 ＝ 真    fso.清除 ().如果真结束返回 (结果)
.版本 2.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕' 初始化组合框1.加入项目 (“分钟”, )组合框1.加入项目 (“小时”, )组合框1.现行选中项 ＝ 0数值框1.内容 ＝ 10  ' 默认10分钟备份一次时钟1.时钟周期 ＝ 0日志 (“程序启动成功，请选择目录后开始备份”).子程序 日志, , 公开.参数 文本, 文本型.局部变量 当前时间, 文本型当前时间 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))编辑框_日志.加入文本 (“[” ＋ 当前时间 ＋ “] ” ＋ 文本 ＋ #换行符)编辑框_日志.起始选择位置 ＝ 取文本长度 (编辑框_日志.内容).子程序 _按钮_选择源目录_被单击.局部变量 路径, 文本型路径 ＝ 浏览文件夹 (“请选择要备份的源文件夹”, ).如果真 (路径 ≠ “”)    编辑框_源目录.内容 ＝ 路径    日志 (“已选择源目录：” ＋ 路径).如果真结束.子程序 _按钮_选择备份目录_被单击.局部变量 路径, 文本型路径 ＝ 浏览文件夹 (“请选择备份保存目录”, ).如果真 (路径 ≠ “”)    编辑框_备份目录.内容 ＝ 路径    日志 (“已选择备份目录：” ＋ 路径).如果真结束.子程序 _按钮_开始_被单击.局部变量 间隔秒数, 整数型' 校验目录.如果 (编辑框_源目录.内容 ＝ “” 或 编辑框_备份目录.内容 ＝ “”)    信息框 (“请先选择源目录和备份目录！”, 0, , )    返回 ().如果结束' 计算时钟周期.判断开始 (组合框1.现行选中项 ＝ 0)  ' 分钟    间隔秒数 ＝ 数值框1.内容 × 60 × 1000.判断 (组合框1.现行选中项 ＝ 1)  ' 小时    间隔秒数 ＝ 数值框1.内容 × 3600 × 1000.默认    间隔秒数 ＝ 10 × 60 × 1000.判断结束时钟1.时钟周期 ＝ 间隔秒数按钮_开始.禁止 ＝ 真按钮_停止.禁止 ＝ 假日志 (“★ 定时备份已启动，间隔：” ＋ 到文本 (数值框1.内容) ＋ 组合框1.取项目文本 (组合框1.现行选中项))执行备份 ()  ' 立即执行一次.子程序 _按钮_停止_被单击时钟1.时钟周期 ＝ 0按钮_开始.禁止 ＝ 假按钮_停止.禁止 ＝ 真日志 (“● 定时备份已停止”).子程序 _时钟1_周期事件日志 (“===== 开始自动备份 =====”)执行备份 ().子程序 执行备份.局部变量 源目录, 文本型.局部变量 备份根目录, 文本型.局部变量 时间名称, 文本型.局部变量 目标目录, 文本型源目录 ＝ 编辑框_源目录.内容备份根目录 ＝ 编辑框_备份目录.内容' 校验目录是否存在.如果真 (文件是否存在 (源目录) ＝ 假)    日志 (“错误：源目录不存在！”)    返回 ().如果真结束' 生成带时间戳的备份文件夹名时间名称 ＝ “备份_” ＋ 子文本替换 (到文本 (取现行时间 ()), “:”, “-”, , )时间名称 ＝ 子文本替换 (时间名称, “/”, “-”, , )目标目录 ＝ 备份根目录 ＋ “\” ＋ 时间名称' 复制目录.如果 (复制文件夹 (源目录, 目标目录))    日志 (“备份成功 → ” ＋ 目标目录).否则    日志 (“备份失败！请检查权限或目录是否被占用”).如果结束.子程序 复制文件夹, 逻辑型.参数 源目录, 文本型.参数 目标目录, 文本型.局部变量 fso, 对象.局部变量 结果, 逻辑型fso.创建 (“Scripting.FileSystemObject”).如果真 (fso.是否为空 () ＝ 假)    目标目录 ＝ 子文本替换 (目标目录, “/”, “\”, , 真)    源目录 ＝ 子文本替换 (源目录, “/”, “\”, , 真)    fso.方法 (“CopyFolder”, 源目录, 目标目录)    结果 ＝ 真    fso.清除 ().如果真结束返回 (结果)

chensun

谢谢楼主分享

风一样存在

AI支持开源~！感谢分享

488402

依然很牛逼

ruilikeji

RainCharm 发表于 2026-4-7 18:23
一个这么简单的小程序，都要用到AI来写？建议你去用龙虾

没钱钱，用不起龙虾

rui1714

666666666666666666666666666666666

ruilikeji

RainCharm 发表于 2026-4-7 18:23
一个这么简单的小程序，都要用到AI来写？建议你去用龙虾

大神啊，我们是新手呢，自己开个头好难的

ruilikeji

qgchqgch89 发表于 2026-4-7 17:31
什么AI呀 哈哈

豆包

刀子嘴豆腐心

忘掉易语言吧

RainCharm

一个这么简单的小程序，都要用到AI来写？建议你去用龙虾