大神們，
新年快樂啊！今天是2017的最后一天，求一個VB檔案搜素工具原始碼。
我自己改改，指定路徑是個共享盤。
請問可以賜我一個嗎？
謝謝大神們！
uj5u.com熱心網友回復：
既然是“共享盤”，那就是已經把共享路徑映射成“網路驅動器”的了？估計這種情況下，對VB6的Dir函式來說應該跟“本地盤符”沒有區別吧……（猜測的，我要登錄另一個系統才能驗證）
你百度一下“VB搜索檔案”，代碼一大堆，自己參考、修改一下就行了。
uj5u.com熱心網友回復：
僅供參考：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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/49987.html
標籤：資源
上一篇：不能打包怎么辦