accessoft.com是一个很好的学习和交流网站,三年来我一直在关注着网站的发展和变化,并且在网上学到了很多实用的技术,今天终于有机会来发一下稿子。

       这个附件的主要作用是在局域网类实现文件夹内容的上传和下载;可以延伸到以后客户端的的自动升级，避免人为手工的去分发客户端:VB代码如下:

Private Sub Command1_Click() ''上传文件夹所有内容
Set fs = CreateObject("Scripting.FileSystemObject")  '创建声明

fs.CopyFolder "d:\在", "\\192.168.1.90\QLL\新建文件夹", True

                            '源文件夹     目标文件夹

MsgBox "上传成功"

End Sub

Private Sub Command2_Click()  ''下载文件夹所有内容
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\192.168.1.90\QLL\新建文件夹", "E:\大的文件夹", True
               '源文件夹     目标文件夹
MsgBox "下载成功"
End Sub

Private Sub Form_Load()  
Shell "net   use   \\192.168.1.90   526456   /user:qll ", vbHide '当窗体加载的时候输入远程服务器的登陆用户名和秘码
End Sub

 附件: 

点击下载此附件