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