vb中的文件控件FILE如何设备访问网络中的共享文件呢

vb中的文件控件FILE怎么设备访问网络中的共享文件呢？
我的设置为：

VB code

Private Sub Command1_Click()
Dir1.Path ="\\192.168.0.101\D" 
End Sub

D这个文件夹已设置为共享了，提示路径不存在！！

谢谢！

------解决方案--------------------
以下VBScript代码仅供参考：

VBScript code

ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"

Set NetworkObject = CreateObject("WScript.Network")

NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

Set 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 = Nothing
Set FSO = Nothing

NetworkObject.RemoveNetworkDrive ServerShare, True, False

Set NetworkObject = Nothing

vb中的文件控件FILE如何设备访问网络中的共享文件呢

相关推荐