首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

用VB虚拟驱动器并访问的有关问题

2012-01-20 
用VB虚拟驱动器并访问的问题?各位专家,继续请教这个问题,可能我表达不是很清楚,不过还是想表达,想知道的问

用VB虚拟驱动器并访问的问题?
各位专家,继续请教这个问题,可能我表达不是很清楚,不过还是想表达,想知道的问题是:是否能用VB做出在局域网中用第一台电脑访问第二台电脑中的文件,访问成功后,可以在第一台电脑中自动创建一个虚拟驱动器,并把被访问电脑中的文件装到这个虚拟驱动器中。然后用户还可以点击这个驱动器后,打开窗口看到里面装的文件。不知VB6.0能否实现这个目地?
比较确切的是这个意思。各位高手继续解答下吧。最好能提供下资料。本人是初级水平。最好代码别过于复杂。多谢各位!

[解决办法]

VB code
ServerShare = "\\192.168.3.56\d$"UserName = "somedomain\someuser"Password = "somepassword"Set NetworkObject = CreateObject("WScript.Network")NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, PasswordSet FSO = CreateObject("Scripting.FileSystemObject")    Set Directory = FSO.GetFolder(ServerShare)        For Each FileName In Directory.Files            WScript.Echo FileName.Name        Next        Set FileName = Nothing    Set Directory = NothingSet FSO = NothingNetworkObject.RemoveNetworkDrive ServerShare, True, FalseSet NetworkObject = Nothing 

热点排行