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------------------
郁闷 
网上公布的两边加引号的测试通不过 也可能我处理的不对
高手帮忙解决下 最好通过测试的