Dim strFileName_UpdateSys As String
strFileName_UpdateSys = App.Path & "\Update\Sys.bible"
'上面象“H:\莱钢项目\薪酬管理\莱钢薪酬\辅助程序\自动升级FTP\Update\Sys.yangao”这样的路径在调试时可以,直接运行exe下面就无法下载
'"F:\Program Files\薪酬管理系统\自动升级FTP\Update\Sys.yangao" 这样的也不行 调试都通不过
'"L:\新建文件夹\Update\Sys.yangao" 这样的才行
With Inet
.URL = "ftp://***"
.UserName = "UserName"
.Password = "Password"
.Protocol = icFTP
.RequestTimeout = 120
lblState.Caption = "检查是否有最新版本程序..." .Execute , "GET gy\XinZi\Sys.bible " & strFileName_UpdateSys Do While .StillExecuting
DoEvents
Loop
End With------------------
郁闷
网上公布的两边加引号的测试通不过 也可能我处理的不对
高手帮忙解决下 最好通过测试的
解决方案 »
- 急,vb连接数据库!在线等!请2点以前给我答案好吗?
- 请问VB中如何 在1个包含 " , ( 的程序末尾 换行书写
- VB报表问题,解决后立即给分!
- Treeview加背景顏色問題
- 问一个小问题!
- 帮我看看,错在那里。
- 有谁会工资管理的问题
- 使用API打开的文件,如果是空文件就没办法删除了,要关闭自己的程序才能打开....
- 写的 带声的按钮 运行时,过一会就 找不到dll入口点 mciGetErrorrstring winmm.dll
- 在VB中如何实现类似画笔的功能,我是初学者
- 如何通过对象名柄 或 对象名称 来返回对象并操纵对象? --- 在线等...即结贴!
- 如何实现同时按下"alt,shift和f5"显示一个对话框"成功"???(注意是三个按键)
The space should be translated to %20