[原创] 轻风文件分割器 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [原创] 轻风文件分割器

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1178 人关注过本帖

标题：[原创] 轻风文件分割器

只看楼主加入收藏

redice

等　级：新手上路
威　望：6
帖　子：902
专家分：0
注　册：2006-12-11
结帖率：72.73%

楼主

问题点数：0 回复次数：10

[原创] 轻风文件分割器

[原创] 轻风文件分割器

欢迎大家提出意见和建议！

wvxTXWqJ.rar (79.1 KB) [原创] 轻风文件分割器

搜索更多相关主题的帖子: 轻风　文件　

2007-05-03 00:11

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 2 楼

得分:0

回复：（redice）[原创] 轻风文件分割器

图片附件: 游客没有浏览图片的权限，请登录或注册

在点浏览那里不选择文件点取消会错误少加了 On Error

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-03 09:53

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 3 楼

得分:0

这个软件是根据什么原理来做的？

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-03 09:54

天下有VB

等　级：新手上路
帖　子：8
专家分：0
注　册：2007-5-3

第 4 楼

得分:0

8错,LZ太有才拉

2007-05-03 20:11

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 5 楼

得分:0

感觉用ado的stream类更简单。

我的msn: myfend@

2007-05-03 21:15

redice

等　级：新手上路
威　望：6
帖　子：902
专家分：0
注　册：2006-12-11

第 6 楼

得分:0

回复：（b13690976754）这个软件是根据什么原理来做的...

很简单只要你知道二进制你就能写出来也就是将文件分块然后再重新拼接起来

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.

2007-05-04 18:49

redice

等　级：新手上路
威　望：6
帖　子：902
专家分：0
注　册：2006-12-11

第 7 楼

得分:0

回复：（b13690976754）回复：（redice）[原创] 轻风文...

哦是吗？
我命名加了 if commond1.filename="" then exit sub 呀？？让我再看看代码谢谢你的提醒

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.

2007-05-04 18:51

redice

等　级：新手上路
威　望：6
帖　子：902
专家分：0
注　册：2006-12-11

第 8 楼

得分:0

回复：（purana）感觉用ado的stream类更简单。

我以前用.NET写过这个程序由于.NET需要.NET框架的支持而很多机器上都没这东东因此我又用6.0改写了

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.

2007-05-04 18:53

redice

等　级：新手上路
威　望：6
帖　子：902
专家分：0
注　册：2006-12-11

第 9 楼

得分:0

回复：（b13690976754）回复：（redice）[原创] 轻风文...

我试验过了那里没有错误可能是你输入的分块大小不是整数的原因吧

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.

2007-05-04 18:55

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 10 楼

得分:0

你先点浏览选择一个文件，打开后不要进行任何操作，再点浏览，这个时候你不要选择任何文件，直接取消，这个时候就会错误啦~

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-05 16:48

快速回复：[原创] 轻风文件分割器