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


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

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

你这种混血代码，真的让人看的头晕啊

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

如果你使用的是易语言，这种中英文混合代码倒是可以理解。但是我一向排斥易语言这种用中文来定义变量名称的方式，让人难以分辨这些中文字符串到底是变量名称，还是中文常量。

我估计 时间消耗在这一句里

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