| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4907 人关注过本帖
标题:请教个局域网访问共享文件夹的问题
只看楼主 加入收藏
七厘米月光
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-11-8
结帖率:0
收藏
已结贴  问题点数:20 回复次数:7 
请教个局域网访问共享文件夹的问题
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


在客户端的机子上可以运行的,但是点击按钮开始执行这段代码的时候会卡顿,失去响应大概十几秒,而在服务器(本机)运行的时候速度是很快的,我想问问各位大神,这是由于网速原因还是我的代码不科学?
搜索更多相关主题的帖子: 局域网 服务器 文件夹 字符串 
2016-11-08 10:18
七厘米月光
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-11-8
收藏
得分:0 
最终结果是正确的,说明访问是没问题的,有没有好一点的办法,这样太卡了。我做的从服务器下载文件到本机的程序倒是很快,都是几秒钟好几个文件拷贝过来了,所以网速应该不是问题?
2016-11-08 10:19
xss_wl
Rank: 5Rank: 5
等 级:禁止访问
威 望:3
帖 子:100
专家分:315
注 册:2016-10-15
收藏
得分:7 
你这种混血代码,真的让人看的头晕啊
2016-11-08 10:52
七厘米月光
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-11-8
收藏
得分:0 
回复 3楼 xss_wl
我怕变量乱了,给看起来清楚一点么~不好意思啊
2016-11-08 12:52
xss_wl
Rank: 5Rank: 5
等 级:禁止访问
威 望:3
帖 子:100
专家分:315
注 册:2016-10-15
收藏
得分:0 
回复 4楼 七厘米月光
如果你使用的是易语言,这种中英文混合代码倒是可以理解。但是我一向排斥易语言这种用中文来定义变量名称的方式,让人难以分辨这些中文字符串到底是变量名称,还是中文常量。
2016-11-08 13:23
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
我估计 时间消耗在这一句里

mypath = "\\192.168.10.25\共享文件夹\"            ' 指定路径。
myname = Dir(mypath, 7)                           ' 找寻第一项。

测试:重启电脑,然后用我的电脑打开 这个地址,看看耗时怎么样。


授人于鱼,不如授人于渔
早已停用QQ了
2016-11-08 13:45
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:7 
这个速度应该和资源管理器中打开差不多的,如果很慢有可能是局域网或者你电脑的问题
2016-11-08 21:10
xss_wl
Rank: 5Rank: 5
等 级:禁止访问
威 望:3
帖 子:100
专家分:315
注 册:2016-10-15
收藏
得分:0 
真正耗时的地方在你下面这段代码中
程序代码:
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
2016-11-09 11:48
快速回复:请教个局域网访问共享文件夹的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022184 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved