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

[bob_es]

大神们，

新年快乐啊！今天是2017的最后一天，求一个VB文件搜素工具源码。

我自己改改，指定路径是个共享盘。

请问可以赐我一个吗？

谢谢大神们！

[舉杯邀明月]

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

[赵4老师]

仅供参考：

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