vb.net指定文件数量 vbnet打开指定文件夹

vb.net中怎么统计文件夹下的文件数

Dim fileList() As String = System.IO.Directory.GetFiles("d:\", "*.*")

创新互联建站是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，微信小程序，十余年建站对成都社区文化墙等多个行业，拥有多年的网站营销经验。

Dim i As Integer = fileList.Length

VB可以使用DriveListBox 控件，DirListBox 控件和FileListBox 控件组合可查看任何磁盘任何文件夹下的文件数和文件夹数。

DriveListBox 控件，在运行时，由于有

DriveListBox

控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。

DirListBox 控件，

在运行时，DirListBox

控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

FileListBox 控件，在运行时，在 Path

属性指定的目录中，FileListBox

控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

以下是具体代码：

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive '设置目录路径。

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path '设置文件路径。

Text1 = File1.ListCount

Text2 = Dir1.ListCount

Text3 = Val(Text1) + Val(Text2)

End Sub

Private Sub Form_Load()

Dir1.Path = Drive1.Drive '设置目录路径。

File1.Path = Dir1.Path '设置文件路径。

End Sub

实施效果：

Public Sub Load_logoin_Image(oProInet As Inet, oProImage As Image)

Dim oFSO As New FileSystemObject

Dim oFile As File

Dim cFile As String

On Error Resume Next

cFile = App。

Path "\DataBase\ f"

要用inet控件之类的东西下载，保存到硬盘临时目录，再用LoadPicture()加载

可以对所有文件名进行比较，留下最大值的文件，基于小于最大值文件的listbox.items删除，这样比较完的结果就是你想要的最好一个文件了。至于循环次数的问题，比较最大值文件就是解决最后次数文件。

分享文章：vb.net指定文件数量 vbnet打开指定文件夹
转载注明：http://scyanting.com/article/doesspc.html