Dim?fileList()?As?String?=?System.IO.Directory.GetFiles("d:\",?"*.*")
創(chuàng)新互聯(lián)建站是一家朝氣蓬勃的網(wǎng)站建設(shè)公司。公司專注于為企業(yè)提供信息化建設(shè)解決方案。從事網(wǎng)站開發(fā),網(wǎng)站制作,網(wǎng)站設(shè)計(jì),網(wǎng)站模板,微信公眾號(hào)開發(fā),軟件開發(fā),微信小程序,十余年建站對(duì)成都社區(qū)文化墻等多個(gè)行業(yè),擁有多年的網(wǎng)站營(yíng)銷經(jīng)驗(yàn)。
Dim?i?As?Integer?=?fileList.Length
VB可以使用DriveListBox 控件,DirListBox 控件和FileListBox 控件組合可查看任何磁盤任何文件夾下的文件數(shù)和文件夾數(shù)。
DriveListBox 控件,在運(yùn)行時(shí),由于有
DriveListBox
控件,所以可選擇一個(gè)有效的磁盤驅(qū)動(dòng)器。該控件用來(lái)顯示用戶系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器的列表。可以創(chuàng)建對(duì)話框,通過(guò)它從任一可用驅(qū)動(dòng)器的磁盤文件列表中打開文件。
DirListBox 控件,
在運(yùn)行時(shí),DirListBox
控件顯示目錄和路徑。這個(gè)控件可以顯示分層的目錄列表。例如,可以創(chuàng)建對(duì)話框,在所有可用目錄中,從文件列表打開一個(gè)文件。
FileListBox 控件,在運(yùn)行時(shí),在 Path
屬性指定的目錄中,F(xiàn)ileListBox
控件將文件定位并列舉出來(lái)。該控件用來(lái)顯示所選擇文件類型的文件列表。例如,可以在應(yīng)用程序中創(chuàng)建對(duì)話框,通過(guò)它選擇一個(gè)文件或者一組文件。
以下是具體代碼:
Private?Sub?Drive1_Change()
Dir1.Path?=?Drive1.Drive???'設(shè)置目錄路徑。
End?Sub
Private?Sub?Dir1_Change()
File1.Path?=?Dir1.Path???'設(shè)置文件路徑。
Text1?=?File1.ListCount
Text2?=?Dir1.ListCount
Text3?=?Val(Text1)?+?Val(Text2)
End?Sub
Private?Sub?Form_Load()
Dir1.Path?=?Drive1.Drive???'設(shè)置目錄路徑。
File1.Path?=?Dir1.Path???'設(shè)置文件路徑。
End?Sub
實(shí)施效果:
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控件之類的東西下載,保存到硬盤臨時(shí)目錄,再用LoadPicture()加載
可以對(duì)所有文件名進(jìn)行比較,留下最大值的文件,基于小于最大值文件的listbox.items刪除,這樣比較完的結(jié)果就是你想要的最好一個(gè)文件了。至于循環(huán)次數(shù)的問(wèn)題,比較最大值文件就是解決最后次數(shù)文件。