| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4490 人关注过本帖
标题:如何计算一个文件夹中的文件数?
只看楼主 加入收藏
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
那你应该要判断这个文件是否为文件夹..不是文件夹的话..你才应该打开啊..

我的msn: myfend@
2006-11-30 10:18
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 

text1.text="D:\vb教程\vb-edu\VB-控制\"
fileName 就是文本文件的名字
Line Input #3, t  也就是打开那个文本文件的第一行

打开的就是已经存在的,所以不用判断了


学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-11-30 10:27
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
之前是打开那个文件夹才出错..现在又说打开的已经存在了...不太明白...

..,你用fso来读取试试.

我的msn: myfend@
2006-11-30 10:30
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 
恩,好的我再试试

学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-11-30 10:39
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
使用
shell "dir " & 文件夹路径 & " > " & app.path & " dir.txt"
然后再打开这个dir.txt看看,有没有用.

2006-11-30 11:03
lixiong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-15
收藏
得分:0 

用FileListBox

FileListBox.ListCount的值

2006-11-30 15:43
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 
楼上的办法还好,可行.

我的问题找到了,是因为没有判断文本文件是否为空,因为那个文件夹中有个空文本,所以就出现了那个提示
现在明白了.
谢谢大家!

学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-11-30 17:56
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
4楼的方法不错,我收藏

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2006-12-11 12:32
wszzg
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-1-13
收藏
得分:0 

收下,学习一下

2007-01-13 20:17
progbobo
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-18
收藏
得分:0 

用用FileListBox控件,把路径属性设为你要判断的文件夹,此时FileListBox.ListCount的值是此文件夹下的所有文件和文件夹的总数。减去文件夹的数目,就是文件的数目。 文件一般有后缀名,文件夹一般没有,可以通过这个来判断文件和文件夹。不过这样不准,有的文件也无后缀。好象有API可以判断,记不清了。 这个方法会简单一点。 谁能说说怎样区分文件和文件夹。


2007-04-18 21:17
快速回复:如何计算一个文件夹中的文件数?
数据加载中...
 
   



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

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