|
楼主 |
发表于 2012-6-7 19:46:48
|
显示全部楼层
江苏省无锡市
三千 发表于 2012-6-7 19:32
我试了一下可以.
调试输出 (移动文件 (“C:\111.txt”, “E:\111.txt”))
.版本 2
文件搜索 (到文本 (QQ路径))
写配置项 (取运行目录 () + “\配置文件.ini”, “Resource”, “版本号”, 编辑框1.内容)
QQ路径 = 取文本注册项 (4, “SOFTWARE\Tencent\QQ2009\Install”, ) ' 所取到的路径为“D:\腾讯QQ”
Resource = QQ路径 + “\” + 到文本 (读配置项 (取运行目录 () + “\配置文件.ini”, “Resource”, “版本号”, )) ' “D:\腾讯QQ”+“\”+“Resource.1.83.3428”=“D:\腾讯QQ\Resource.1.83.3428”
Themes = Resource + “\Themes” ' D:\腾讯QQ\Resource.1.83.3428"+"\Themes"="D:\腾讯QQ\Resource.1.83.3428\Themes"
.如果 (文件是否存在 (QQ路径 + “\备份”))
' 删除文件 (QQ路径 + “\备份”)
' 写到文件 (QQ路径, #Default)
' 写到文件 (QQ路径, #Res)
移动文件 (Themes + “\Default.rdb”, QQ路径 + “\备份”)
移动文件 (Resource + “\Res.rdb”, QQ路径 + “\备份”)
.否则
创建目录 (QQ路径 + “\备份”)
.如果结束
复制文件 (Themes + “\Default.rdb”, QQ路径 + “\备份”)
复制文件 (Resource + “Res.rdb”, QQ路径 + “\备份”)
我这样好像是不行的,我的路径是用注册表取到的 |
|