以下是引用有点甜在2014-5-8 10:13:00的发言:
个别电脑?不规律发生?
启动的时候,你写了什么代码?
我的电脑还未发现这个问题,就是位于香港那边的同事发生过这样的提示,但重新打开一下就可以了。
启动时:
BeforeOpenProject
If FileSys.DirectoryExists("\\192.168.1.147\升级\产品规格表") Then
Return
Else
shell("net use \\192.168.1.147\升级 sjsj /user:sj")
End If
If FileSys.DirectoryExists("\\192.168.1.2\pic") Then
Return
Else
shell("net use \\192.168.1.2\pic 1011234 /user:101")
End If
AfterOpenProject
Forms("登陆").Open()
Network.Ping("192.168.1.147")
Network.Ping("192.168.1.147")
Dim s As String
s=ProjectPath & "\Images\Logo.ico"
BaseMainForm.Icon = New Icon(s)
If FileSys.DirectoryExists("\\192.168.1.147\升级\产品规格表") Then
Syscmd.Project.Update(False,True)
Else
shell("net use \\192.168.1.147\升级 sjsj /user:sj")
End If
If FileSys.DirectoryExists("\\192.168.1.2\pic") Then
Return
Else
shell("net use \\192.168.1.2\pic 1011234 /user:101")
End If
[此贴子已经被作者于2014-5-8 10:50:03编辑过]