请参考一下我的做法:
If FileSys.DirectoryExists("\\服务IP\升级\目录") Then Syscmd.Project.Update(False,True)Else shell("net use \\服务IP\升级 密码 /user:用户名")
Syscmd.Project.Update(False,True)End If