VB程序在英文操作系统上搜索中文路径出错,高手来解决

lzhzxl 2008-02-23 09:53:26
现在是这样的问题,在本地查找没有问题,但在英文服务器上查找的时候,碰到中文路径就出错了,但在服务器上可以用操作系统自己的搜索功能查找中文路径是没问题的!
出错的代码是这一行:If GetAttr(sDirName & sName) And vbDirectory <> 0 Then

部分代码如下:
iDirNum = 0

sName = Dir(sDirName, vbDirectory)

Do While Len(sName) > 0

If sName <> "." And sName <> ".." Then
'On Error Resume Next
If GetAttr(sDirName & sName) And vbDirectory <> 0 Then

iDirNum = iDirNum + 1

ReDim Preserve sDirList(1 To iDirNum)

sDirList(iDirNum) = sDirName & sName & "\"

End If

End If

sName = Dir '下一个目录

Loop
...全文
27 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
haoder 2008-02-26
楼上的说得对。具体你参考一下这个帖子。
http://topic.csdn.net/t/20061015/09/5082932.html
回复
junki 2008-02-25
是因为你的路径出现了乱码,建议对搜索的路径进行编码转换
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据库设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 用户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-23 09:53
社区公告
暂无公告