Public Function 获取加密文件名() As String        '获得服务器中与自己MAC匹配的加密文件名
mypath = "\\192.168.10.25\共享文件夹\"            ' 指定路径。
myname = Dir(mypath, 7)                           ' 找寻第一项。
Do While myname <> ""                             ' 开始循环。
    Debug.Print myname                            '显示文件名
    On Error Resume Next
    翻译名称 = 解密MAC数组(myname)                '我自己写的翻译函数，可以忽略不计，就是翻译成一个字符串与本机的MAC地址对比
    If 翻译名称 = Replace(MACAddress, ":", "-") Then     '与读取本机MAC地址比较
        获取加密文件名 = myname
        GoTo 完成
    End If
    翻译名称 = ""
    myname = Dir                  ' 查找下一个文件
Loop
完成:
MsgBox "匹配的加密文件名为:" & myname, 26, ""
End Function


在客户端的机子上可以运行的，但是点击按钮开始执行这段代码的时候会卡顿，失去响应大概十几秒，而在服务器（本机）运行的时候速度是很快的，我想问问各位大神，这是由于网速原因还是我的代码不科学？

最终结果是正确的，说明访问是没问题的，有没有好一点的办法，这样太卡了。我做的从服务器下载文件到本机的程序倒是很快，都是几秒钟好几个文件拷贝过来了，所以网速应该不是问题？

我怕变量乱了，给看起来清楚一点么~不好意思啊