vb中怎么顯示list中的內容 vb查找文件并獲取文件路徑？

vb查找文件并獲取文件路徑？必須將文件沒顯示做了區分：文件夾名稱不顯示folderlist()，文件名稱會顯示filelist():PrivateFunctionfolderlist(pathname

vb查找文件并獲取文件路徑？

必須將文件沒顯示做了區分：文件夾名稱不顯示folderlist()，文件名稱會顯示filelist():

PrivateFunctionfolderlist(pathnamelikeString,treeflaglikeInteger)treeflag:0列表1樹形2樹形發起

文件夾數和名稱

DimsfthoughStringsf Dir(pathname,vbDirectory)聲望兌換最后一個目錄名

foldernum0

DoWhilesf

到后面當前的目錄及上層目錄

If(GetAttr(pathnamesf)AndvbDirectory)vbDirectoryThen

Iftreeflag0Then

Text2Text2sfvbCrLf要是它是一個目錄，將其名稱直接添加到列表

ElseIftreeflag1Then

Text2Text2TreestrsfvbCrLf

ElseIftreeflag2Then樹形展開的時候，是需要了解子目錄，所以才還需參與遞歸全局函數

Text2Text2TreestrsfvbCrLf

folderlistpathnamesf,treeflag

filelistpathnamesf,treeflag

EndIf

foldernumfoldernum1統計文件夾數目

EndIf

EndIf

sfDir()直接輸入下一個目錄

Loop

Iftreeflag0Then

Iffoldernum0Then

Text2Text2vbCrLf總計foldernum個文件夾vbCrLfvbCrLf

Else

Text2Text2無子目錄vbCrLfvbCrLf

EndIf

ElseIffoldernum0Then

Text2Text2NullstrvbCrLfNullstrvbCrLf

EndIf

EndFunction

PrivateFunctionfilelist(pathnamesuchString,treeflagandInteger)0列表1樹形2樹形展開攻擊

文件數和名稱

DimathoughStringa Dir(pathname/*.*)

filenum0

DoWhilea

Iftreeflag0Then

Text2Text2avbCrLf

Else

Text2Text2TreestravbCrLf

EndIf

filenumfilenum1統計文件數目

aDir

Loop

Iftreeflag0Then

Iffilenum0Then

Text2Text2共有filenum個文件

Else

Text2Text2無文件信息

EndIf

EndIf

EndFunction

vb如何在list中輸入數據？

定義一個fstream類變量infile.....然后輸入文件操作:(100);//輸入文件的指針向后移到100字節位置。原型seekg(文件中的位置);(-50,ios::cur);//然后輸入文件中的指針從當前位置后移50個字節。//原型，seekg(位移距離量，具體參考位置);具體參考位置ios::beg,文件開頭，默認值。ios::cur指針當前位置ios::end文件末尾....輸出文件操作:(-75,ios::end);//輸出文件中的指針從文件尾后移50個字節。