请教个局域网访问共享文件夹的问题
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
在客户端的机子上可以运行的,但是点击按钮开始执行这段代码的时候会卡顿,失去响应大概十几秒,而在服务器(本机)运行的时候速度是很快的,我想问问各位大神,这是由于网速原因还是我的代码不科学?