从MS Office缓慢访问smb文件和目录-Excel VBA

Question

我正在运行MS Office 2013，并且试图从Excel VBA代码列出smb目录中的文件。

unix_path = "\\smb" & unix_path

 ListBox3.Clear
 Dim fil As file
 On Error Resume Next
 If Dir(unix_path, vbDirectory) <> "" Then

 Set MyObject = New Scripting.FileSystemObject
 Set mysource = MyObject.GetFolder(unix_path)
 For Each myFile In mysource.Files
 If InStr(myFile.Name, ".xlsx") > 0 Then
    UserForm1.ListBox3.AddItem myFile.Name
End If

这大约需要15秒。 该目录本身仅包含5个文件。 值得一提的是，直接从资源管理器访问目录要快得多（不到1秒）。

Answer 1

从我的经验来看，FSO有很多开销，因此我在网络上遇到了一些奇怪的问题。 除非我做的事情比这种情况更具体，否则我不会经常使用它。

请测试以下代码，看看它是否仍然挂起，

unix_path = "\\smb" & unix_path

 ListBox3.Clear
 Dim fil As file
 On Error Resume Next
 If Dir(unix_path, vbDirectory) <> "" Then

 mySource = Dir(unix_path & "*.xlsx")
 Do until mySource = ""
    UserForm1.ListBox3.AddItem mySource
    mySource = Dir()
 loop
 end if