主题：代码疑问

楼主的问题好象有点无厘头了，字符型用<>做比较是可行的，测试结果也表明是没问题的，可楼主就是不行。

发布前后发布后又不一样的结果，这让人摸不着头脑了。

 

 

下载完成后用CopyFile进行复制并重命名打开的项目名称是可以覆盖的，升级完成后只需syscmd.Project.Open(ProjectFile)就可以重新打开更新后的项目。

如果是sql数据源，我觉得按下面的步骤就可以了。

假设在原项目中进行升级：

 

'判断是否可以升级
'获取下载文件大小，将值保存到变量中
DownloadFile '下载更新文件到指定目录
'获取刚下载的文件的大小，将值保存到变量中
'比较服务器文件和已下载的文件大小是否一致（如果不一致说明下载中出错）
CopyFile '复制刚下载的文件，并重命名覆盖原项目
DeleteFile '删除下载的文件
syscmd.Project.Open(ProjectFile) '重启项目

 

不会的，假设下载的文件名称为“test.Table”，保存在项目目录下的“test”文件夹中

 

FileSys.CopyFile(ProjectPath & test & "\test.Table",FileSys.GetFileInfo(ProjectFile).Name,True)

如果不是单个的文件可以考虑用MoveDirectory，如果替换狐表的所有程序文件，不能替换的可能仍然存在。

 

MoveDirectory

将目录中的内容移到另一个目录，并删除原目录。

语法：

MoveDirectory(Directory, Destination)

Directory: 要移动的目录
Destination：目标位置

例如：

FileSys.MoveDirectory("C:\YourFolder", "D:\MyFolder")

问题应该在这吧？

 

FileSys.MoveDirectory("D:\零时文件\其它\自动升级程序", "D:\零时文件\其它\自动升级程序二\" & FileSys.GetFileInfo(ProjectFile).Name,True)

 

返回正在使用的项目名称。

试试不替换.exe文件，这个文件好象也没什么必要去替换它。