189 8069 5689
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删除，这样比较完的结果就是你想要的最好一个文件了。至于循环次数的问题，比较最大值文件就是解决最后次数文件。