vb中怎么顯示list中的內(nèi)容 vb查找文件并獲取文件路徑？
vb查找文件并獲取文件路徑？必須將文件沒顯示做了區(qū)分：文件夾名稱不顯示folderlist()，文件名稱會顯示filelist():PrivateFunctionfolderlist(pathname
vb查找文件并獲取文件路徑？
必須將文件沒顯示做了區(qū)分：文件夾名稱不顯示folderlist()，文件名稱會顯示filelist():
PrivateFunctionfolderlist(pathnamelikeString,treeflaglikeInteger)treeflag:0列表1樹形2樹形發(fā)起
文件夾數(shù)和名稱
DimsfthoughStringsf Dir(pathname,vbDirectory)聲望兌換最后一個(gè)目錄名
foldernum0
DoWhilesf
到后面當(dāng)前的目錄及上層目錄
If(GetAttr(pathnamesf)AndvbDirectory)vbDirectoryThen
Iftreeflag0Then
Text2Text2sfvbCrLf要是它是一個(gè)目錄，將其名稱直接添加到列表
ElseIftreeflag1Then
Text2Text2TreestrsfvbCrLf
ElseIftreeflag2Then樹形展開的時(shí)候，是需要了解子目錄，所以才還需參與遞歸全局函數(shù)
Text2Text2TreestrsfvbCrLf
folderlistpathnamesf,treeflag
filelistpathnamesf,treeflag
EndIf
foldernumfoldernum1統(tǒng)計(jì)文件夾數(shù)目
EndIf
EndIf
sfDir()直接輸入下一個(gè)目錄
Loop
Iftreeflag0Then
Iffoldernum0Then
Text2Text2vbCrLf總計(jì)foldernum個(gè)文件夾vbCrLfvbCrLf
Else
Text2Text2無子目錄vbCrLfvbCrLf
EndIf
ElseIffoldernum0Then
Text2Text2NullstrvbCrLfNullstrvbCrLf
EndIf
EndFunction
PrivateFunctionfilelist(pathnamesuchString,treeflagandInteger)0列表1樹形2樹形展開攻擊
文件數(shù)和名稱
DimathoughStringa Dir(pathname/*.*)
filenum0
DoWhilea
Iftreeflag0Then
Text2Text2avbCrLf
Else
Text2Text2TreestravbCrLf
EndIf
filenumfilenum1統(tǒng)計(jì)文件數(shù)目
aDir
Loop
Iftreeflag0Then
Iffilenum0Then
Text2Text2共有filenum個(gè)文件
Else
Text2Text2無文件信息
EndIf
EndIf
EndFunction
vb如何在list中輸入數(shù)據(jù)？
定義一個(gè)fstream類變量infile.....然后輸入文件操作:(100);//輸入文件的指針向后移到100字節(jié)位置。原型seekg(文件中的位置);(-50,ios::cur);//然后輸入文件中的指針從當(dāng)前位置后移50個(gè)字節(jié)。//原型，seekg(位移距離量，具體參考位置);具體參考位置ios::beg,文件開頭，默認(rèn)值。ios::cur指針當(dāng)前位置ios::end文件末尾....輸出文件操作:(-75,ios::end);//輸出文件中的指針從文件尾后移50個(gè)字節(jié)。