网络连接的问题请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

BeforeOpenProject 事件

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"

If FileSys.DirectoryExists(str) Then

filesys.DeleteDirectory(str,2,2)

End If

shell( "net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator",0)

If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then

MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")

E.Cancel = True

End If

-----------------------------------------------------------------------------

我把数据库放置在服务器（该主机常年不关机）共享文件里，

客户端的电脑设置了，开机自动启动编译好的客户端，代码如上，用的是固态硬盘，快到居然会

出现 FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False 的情况，而且是每一次。

重新在开启客户端就没问题了。

用机械硬盘的时候，没出现过这个问题！

求助如何解决！

[此贴子已经被作者于2015/12/23 8:46:26编辑过]

老师不懂这段代码的作用是什么！

这样写就能确保网络连通后在启动系统吗

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"

If FileSys.DirectoryExists(str) Then

filesys.DeleteDirectory(str,2,2)

End If

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()

p.StandardInput.WriteLine( "net use \\192.168.44.202\e TBFCfs.2109 /user:Administrator",0)

p.StandardInput.WriteLine("exit")

If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then

MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")

E.Cancel = True

End If

改成这样对吗？

[此贴子已经被作者于2015/12/23 9:48:56编辑过]

老师，看不到代码

问下

这段代码的思路是什么，

能保证使网卡有效运行后再判断，网络的情况吗

主题：网络连接的问题请教