求助，求一个VB写的文件搜索工具(用来搜制定共享文件夹内容的)

显示全部楼层 · 2021-1-27 05:51:24

大神们，
新年快乐啊！今天是2017的最后一天，求一个VB文件搜素工具源码。
我自己改改，指定路径是个共享盘。

请问可以赐我一个吗？
谢谢大神们！
分 -->

千问 · 2021-1-27 05:51:24

既然是“共享盘”，那就是已经把共享路径映射成“网络驱动器”的了？
估计这种情况下，对VB6的Dir函数来说应该跟“本地盘符”没有区别吧……（猜测的，我要登录另一个系统才能验证）
你百度一下“VB搜索文件”，代码一大堆，自己参考、修改一下就行了。

千问 · 2021-1-27 05:51:24

仅供参考：ServerShare="\\192.168.3.56\d$"
UserName="somedomain\someuser"
Password="somepassword"
SetNetworkObject=CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive"",ServerShare,False,UserName,Password
SetFSO=CreateObject("Scripting.FileSystemObject")
SetDirectory=FSO.GetFolder(ServerShare)
ForEachFileNameInDirectory.Files
WScript.EchoFileName.Name
Next
SetFileName=Nothing
SetDirectory=Nothing
SetFSO=Nothing
NetworkObject.RemoveNetworkDriveServerShare,True,False
SetNetworkObject=Nothing