自动创建目录+然后把文件在写进去

虚心求调教 · 发表于 2013-11-3 21:12:58

PS3.rar (236.53 KB, 下载次数: 8)

罪儿 · 发表于 2013-11-3 21:12:59

[e]
.版本 2

.程序集窗口程序集1
.程序集变量 ps, 字节集

.子程序 _按钮1_被单击
.局部变量 s, 文本型

ps ＝读入文件 (取运行目录 () ＋ “\ps3.exe”)
s ＝取运行目录 () ＋ “\” ＋到文本 (取日期 (取现行时间 ())) ＋到文本 (取小时 (取现行时间 ())) ＋ “点” ＋到文本 (取分钟 (取现行时间 ())) ＋ “分” ＋ “—备份”
创建目录 (s)
写到文件 (s ＋ “\ps3.exe”, ps)
[/e]