怎样实现服务器的文件拷到本地的PC中?
文件所在盘符已共享,
Private Sub Command1_Click()
Dim DstFilePath As String
Dim fs As Object
DstFilePath = "\\flying27\c:\" '文件路径
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象
Me.MousePointer = 11
fs.Copyfolder DstFilePath & "temp.txt", "c:\" '复制文件到目标文件夹
Me.MousePointer = 0
End Sub
可是我登入的是要用户名和密码?是不是先连接然后在连接!
问题点数:20、回复次数:4Top
1 楼lxcc()回复于 2004-12-01 17:50:21 得分 20
CC这个
http://search.csdn.net/Expert/topic/2440/2440801.xml?temp=.7057306Top
2 楼lxcc()回复于 2004-12-01 17:51:33 得分 0
Or CC
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=183685Top
3 楼cosio()回复于 2004-12-01 19:47:47 得分 0
总是会提示,路径没有找到啊!~
Top
4 楼cosio()回复于 2004-12-02 09:01:03 得分 0
没有人回答自己顶!Top




