C/S模式中,一些数据是以路径保存的,能不能把这些数据从局域网内的服务器复制到客户机上,谢谢 20
2个回答
展开全部
Private Sub Command1_Click()
Dim souFilename As String '服务端文件
Dim desFilename As String '客户端文件
souFilename = "\\127.0.0.1\vbatest\1.txt"
desFilename = "D:\1.txt"
If Len(Dir(souFilename)) > 3 Then '判断文件是否存在
If Len(Dir(desFilename)) > 3 Then Kill desFilename '如果客户端文件存在删除
FileCopy souFilename, desFilename
MsgBox "Copy Complated"
Else
MsgBox "文件不存在"
End If
End Sub
Dim souFilename As String '服务端文件
Dim desFilename As String '客户端文件
souFilename = "\\127.0.0.1\vbatest\1.txt"
desFilename = "D:\1.txt"
If Len(Dir(souFilename)) > 3 Then '判断文件是否存在
If Len(Dir(desFilename)) > 3 Then Kill desFilename '如果客户端文件存在删除
FileCopy souFilename, desFilename
MsgBox "Copy Complated"
Else
MsgBox "文件不存在"
End If
End Sub
追问
能否给出C#的代码?另外客户机能否通过数据库中存储的数据路径获取服务器的中的数据,谢谢
追答
C#我不会了,vb的代码很好读的 ,自己修改一下,
复制文件的函数
只能给你个思路
S1:从通过数据库连接数据库取回服务器的数据路径 给到一个变量如souFilename
S2:判断服务器上的文件是否存在 If Len(Dir(souFilename)) > 3 Then
s3:通过函数复制到本地路径,通过C#的文件复制函数执行就可以
完成复制
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询