十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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删除,这样比较完的结果就是你想要的最好一个文件了。至于循环次数的问题,比较最大值文件就是解决最后次数文件。