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

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

VB code

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

VBScript 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