怎样用VB筛选出文件夹中不同的文件,条件是扩展名!!

我想在一个文件夹中筛选出不同的文件,目的是要计数,如果谁能回答,我会送上我所有的分!!!谢谢

在窗体上加载个filelistbox控件。
指定文件所在的路径。
File1.Path = "d:\"
指定显示文件的扩展名
File1.Pattern = "*.dll;*.txt" ;号为分隔符,可以只写一个扩展名也可定多个。
File1.ListCount就是你要的计数。
例如:下面的代码分别显示统计出的D:\路径下的dll与txt文件的数量:
File1.Path = "d:\"
File1.Pattern = "*.dll"
MsgBox File1.ListCount
File1.Pattern = "*.txt"
MsgBox File1.ListCount
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-11-08
参考我这个答案的文件查找部分:

http://zhidao.baidu.com/question/73989256.html

急!如何用vb循环打开一个文件夹里的多个文件
首先,使用Set语句创建一个FileSystemObject对象,将此对象命名为fs。接着,使用GetFolder方法获取指定文件夹。然后,通过Set ff = f.Files语句获取该文件夹下的所有文件。使用For Each循环遍历文件数组ff,逐个处理文件。对于每个文件f1,通过f1.Path获取文件的完整路径。检查文件类型,如果文件类型为"ROH文件...

怎么用VB编写搜索指定文件夹下的指定拓展名,并提取出来
List1.AddItem file file = Dir Wend End Sub 这是搜索windows文件夹中指定扩展名的,如果是要搜索文件名中包含关键词的,可以把file = Dir("c:\\windows\\*." & Text1.Text)这行改成file = Dir("c:\\windows\\*" & Text1.Text & "*")。

vb 如何把文件名和文件后缀(扩展名)分离出来,我只要文件名
打开到这个文件夹在这里新建1个文本文档,里面的内容为:---我是分割线,复制我下面的内容---@echo offrename .flv .rmvbpause---我也是分割线,复制我上面的内容---再把这个文件重命名为xx.bat 名字随便,后缀必须为.bat 然后运行,即可 ...

VB中怎么查找文件夹中的文件并且打开
Path = "D:\\123\\"FileName = Path & TextBox1.Text & ".xlsx" (后面根据文件的扩展名更改)Workbooks.Open filename:=FileName 这是基本代码,其他的可以自由发挥。以下是我常用的一段代码,作用是弹出一个文件夹选择框,选中文件夹后,可以自动依次打开所有文件,方便批量处理。如果不想打开很...

VB 编程 如何区分文件夹名子中的小数点与文件扩展名
拿mypath=“D:\\my documents\\abcde.txt” 来说,文件扩展名在win系统下为 .xxx也就是说可以通过 if left(right(mypath,4),1)="." then …… else 语句来是否为小数点来区分文件夹名子中的小数点与文件扩展名

vb6查找u盘并遍历所有文件夹中exe文件且更改后缀
3.修改文件的扩展名:这个VB命令是:Name OldName As NewName ' 更改文件名 思路二:可以编写批处理文件,通过VB去调用.第2个问题:不知道你加密指的是什么?我也提供思路:简单的加密算法,就是移位;所谓移位,对每个字节的二进制数增加或减少一个常数去进行保存文件,当读取时候,减去或增加这个...

VB怎样快速获取当前文件夹下的所有文件的路径?(包括子目录)
有两种方法:1、使用DIR递归,不过这是微软明确不推荐的 2、最快但不太正规的 使用 Shell "cmd \/k dir c:\\windows \/s\/b\/a >>d:\\jg.txt"c:\\windows 目标文件夹,当前文件夹为 app.path,你可以根据要求生成命令字符串 d:\\jg.txt 为临时文件 执行这行后再读取临时文件即可。极快!

如何用VB获得某一目录下的所有文件和文件夹名称
选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我!!!这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码!!!

用VB查找某个文件夹里的Excel文件,并读取该Excel表格里的相关数据
代码及注释如下:Sub main()f = Dir("D;\\*.xls*") '查找D盘根目录的所有Excel文件 Do While f <> ""Workbooks.Open ("D:\\" & f) '依次D盘根目录的所有Excel文件 k = k + 1 Cells(k, 1) = Workbooks(f).Range("A1") '将打开的Excel文件中的A1单元格内容依次提取到当前工作表中...

用VB怎样获取一个文件夹内所有文件名?
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。FileListBox 控件,在运行时,在 Path 属性指定的目录中,FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如,可以在应用程序中创建对话框,通过它选择一个文件或者一组文件。以下是组合使用DriveListBox 、...

相似回答