中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

English/Chinese Fix Translation

作者: 标题: [Original] vbs version of Tree[原创]vbs版Tree 上一主题 | 下一主题 slore 铂金会员 积分 5212 发帖 2478 注册 2007-2-8 状态 离线 『第 16 楼』:     使用 LLM 解释/回答一下 将 on Error Resume Next '容错模式(忽略特殊文件夹错误) 屏蔽掉改为: 'on Error Resume Next '容错模式(忽略特殊文件夹错误) 看下提示信息，估计是权限问题。 Change on Error Resume Next '容错模式(忽略特殊文件夹错误) to: 'on Error Resume Next '容错模式(忽略特殊文件夹错误) Let's take a look at the prompt message, it is estimated to be a permission issue. S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore 2010-3-27 19:33 查看资料  发短消息  网志   编辑帖子  回复  引用回复 kidzgy 中级用户 积分 262 发帖 129 注册 2007-7-11 状态 离线 『第 17 楼』:     使用 LLM 解释/回答一下 我希望所以文件取大小能精确到百分位。 比如 218.12MB 1.02GB 35.60KB I hope all file sizes can be precise to the hundredth place. For example 218.12MB 1.02GB 35.60KB 2010-3-28 11:14 查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复 jarry0932 初级用户 积分 128 发帖 122 注册 2009-9-21 状态 离线 『第 18 楼』:     使用 LLM 解释/回答一下 支持一下 2010-3-28 11:37 查看资料  发送邮件  发短消息  网志  (274997087)  编辑帖子  回复  引用回复 tachyon 初级用户 积分 33 发帖 32 注册 2006-2-21 状态 离线 『第 19 楼』:     使用 LLM 解释/回答一下 slore, 这个vbs在我的系统上也无法正常完成目录递归。 不过看了半天代码也没发现什么地方不对的。。。 slore, this VBS cannot complete directory recursion normally on my system. But after looking at the code for a long time, I can't find anything wrong... 2010-3-28 21:09 查看资料  发短消息  网志   编辑帖子  回复  引用回复 slore 铂金会员 积分 5212 发帖 2478 注册 2007-2-8 状态 离线 『第 20 楼』:     使用 LLM 解释/回答一下 Originally posted by tachyon at 2010-3-28 21:09: slore, 这个vbs在我的系统上也无法正常完成目录递归。 不过看了半天代码也没发现什么地方不对的。。。 代码逻辑是正确的。。。估计是那个对象的问题，一些文件夹会莫名其妙的没有权限，尤其是系统的一些文件夹。 Originally posted by tachyon at 2010-3-28 21:09: slore, this vbs cannot complete directory recursion normally on my system. But after looking at the code for a long time, I can't find anything wrong... The code logic is correct... It is estimated that it is a problem with that object. Some folders will inexplicably have no permissions, especially some system folders. S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore 2010-3-28 22:24 查看资料  发短消息  网志   编辑帖子  回复  引用回复 slore 铂金会员 积分 5212 发帖 2478 注册 2007-2-8 状态 离线 『第 21 楼』:     使用 LLM 解释/回答一下 Originally posted by kidzgy at 2010-3-28 11:14: 我希望所以文件取大小能精确到百分位。 比如 218.12MB 1.02GB 35.60KB FormatSize函数自己改改吧。 Originally posted by kidzgy at 2010-3-28 11:14: I hope that the size of all files can be accurate to the hundredth place. For example 218.12MB 1.02GB 35.60KB Modify the FormatSize function yourself. S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore 2010-3-28 22:26 查看资料  发短消息  网志   编辑帖子  回复  引用回复 kidzgy 中级用户 积分 262 发帖 129 注册 2007-7-11 状态 离线 『第 22 楼』:     使用 LLM 解释/回答一下 抱歉，我对此一窍不通哦，具体怎么改哦？什么替换成什么？ Sorry, I know nothing about this. Specifically, how to change it? What to replace with what? 2010-3-29 12:49 查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复 slore 铂金会员 积分 5212 发帖 2478 注册 2007-2-8 状态 离线 『第 23 楼』:     使用 LLM 解释/回答一下 Function FormatSize(SZ) Dim i Do While SZ > 1024 i = i + 1 SZ = SZ / 1024 Loop FormatSize = " (" & Round(SZ,2) & Mid(Unit4Size,1 + 2 * i,2) & ")" End Function ```vbnet Function FormatSize(SZ) Dim i Do While SZ > 1024 i = i + 1 SZ = SZ / 1024 Loop FormatSize = " (" & Round(SZ, 2) & Mid(Unit4Size, 1 + 2 * i, 2) & ")" End Function ``` S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore 2010-3-29 13:09 查看资料  发短消息  网志   编辑帖子  回复  引用回复 kidzgy 中级用户 积分 262 发帖 129 注册 2007-7-11 状态 离线 『第 24 楼』:     使用 LLM 解释/回答一下 弄好了非常感谢哈~ It's done. Thanks a lot~ 2010-3-29 19:31 查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: 站务区  > 站务公告 & 版主讨论  > 意见反馈 & 网友交流 DOS讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正