亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用API函數遍歷指定驅動器、目錄的文件

2019-11-18 17:34:25
字體：大 中 小
來源：轉載
供稿：網友
以下代碼演示了如何用WindowsAPI函數遍歷指定驅動器、目錄的所有文件。其思路是：調出瀏覽文件夾窗口讓用戶指定所要搜索的起始路徑，然后用查找文件的API函數遍歷該目錄下及其包含的子目錄下的所有文件。本例需要：一個按鈕，一個TextBox和一個ListBox，其中，TextBox應設置為多行。
核心代碼參照API-Guide的兩個例子程序，特此聲明。

OptionExplicit

'查找第一個文件的API
ConstMAX_PATH=260
ConstMAXDWord=&HFFFF
ConstINVALID_HANDLE_VALUE=-1
ConstFILE_ATTRIBUTE_ARCHIVE=&H20
ConstFILE_ATTRIBUTE_DIRECTORY=&H10
ConstFILE_ATTRIBUTE_HIDDEN=&H2
ConstFILE_ATTRIBUTE_NORMAL=&H80
ConstFILE_ATTRIBUTE_READONLY=&H1
ConstFILE_ATTRIBUTE_SYSTEM=&H4
ConstFILE_ATTRIBUTE_TEMPORARY=&H100
ConstBIF_RETURNONLYFSDIRS=1
PrivateTypeFILETIME
dwLowDateTimeAsLong
dwHighDateTimeAsLong
EndType

'定義類(用于查找文件)
PrivateTypeWIN32_FIND_DATA
dwFileAttributesAsLong
ftCreationTimeAsFILETIME
ftLastaccessTimeAsFILETIME
ftLastWriteTimeAsFILETIME
nFileSizeHighAsLong
nFileSizeLowAsLong
dwReserved0AsLong
dwReserved1AsLong
cFileNameAsString*MAX_PATH
cAlternateAsString*14
EndType

'定義類(用于瀏覽文件夾窗口)
PrivateTypeBrowseInfo
hWndOwnerAsLong
pIDLRootAsLong
pszDisplayNameAsLong
lpszTitleAsLong
ulFlagsAsLong
lpfnCallbackAsLong
lParamAsLong
iImageAsLong
EndType

'自定義函數
FunctionStrIfGetFileAttributes(path&DirName)AndFILE_ATTRIBUTE_DIRECTORYThen
dirNames(nDir)=DirName
DirCount=DirCount 1
nDir=nDir 1
ReDimPreservedirNames(nDir)
EndIf
EndIf
Cont=FindNextFile(hSearch,WFD)'獲取下一個子目錄
Loop
Cont=FindClose(hSearch)
EndIf
'遍歷目錄并累計文件總數
hSearch=FindFirstFile(path&SearchStr,WFD)
Cont=True
IfhSearch<>INVALID_HANDLE_VALUEThen
WhileCont
FileName=StripNulls(WFD.cFileName)
If(FileName<>".")And(FileName<>"..")Then
FindFilesAPI=FindFilesAPI (WFD.nFileSizeHigh*MAXDWORD) WFD.nFileSizeLow
FileCount=FileCount 1
List1.AddItempath&FileName
EndIf
Cont=FindNextFile(hSearch,WFD)'獲取下一個文件
Wend
Cont=FindClose(hSearch)
EndIf
'如果子目錄存在則遍歷之
IfnDir>0Then
Fori=0TonDir-1
FindFilesAPI=FindFilesAPI FindFilesAPI(path&dirNames(i)&"/",_
SearchStr,FileCount,DirCount)
Nexti
EndIf
EndFunction

'查找按鈕代碼
SubCommand1_Click()
DimSearchPathAsString,FindStrAsString
DimFileSizeAsLong
DimNumFilesAsInteger,NumDirsAsInteger
DimiNullAsInteger,lpIDListAsLong,lResultAsLong
DimsPathAsString,udtBIAsBrowseInfo
WithudtBI
'設置瀏覽窗口
.hWndOwner=Me.hWnd
'返回選中的目錄
.ulFlags=BIF_RETURNONLYFSDIRS
EndWith

'調出瀏覽窗口
lpIDList=SHBrowseForFolder(udtBI)
IflpIDListThen
sPath=String$(MAX_PATH,0)
'獲取路徑
SHGetPathFromIDListlpIDList,sPath
'釋放內存
CoTaskMemFreelpIDList
iNull=InStr(sPath,vbNullChar)
IfiNullThen
sPath=Left$(sPath,iNull-1)
EndIf
EndIf

Screen.MousePointer=vbHourglass
List1.Clear
SearchPath=sPath'選中的目錄為搜索的起始路徑
FindStr="*.*"'搜索所有類型的文件(此處可另作定義)
FileSize=FindFilesAPI(SearchPath,FindStr,NumFiles,NumDirs)
Text1.Text="查找到的文件數："&NumFiles&vbCrLf&"查找的目錄數："&_
NumDirs 1&vbCrLf&"文件大小總共為："&vbCrLf&_
Format(FileSize,"#,###,###,##0")&"字節"
Screen.MousePointer=vbDefault
EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲综合成人婷婷小说| 欧美日本在线视频中文字字幕| 国产精品免费看久久久香蕉| 成人a级免费视频| 欧美日韩国产一区中文午夜| 日韩网站免费观看| 国产欧美日韩专区发布| 97不卡在线视频| 久久成人综合视频| 91热精品视频| 日韩久久免费视频| 日本亚洲欧洲色α| 亚洲欧洲日产国码av系列天堂| 91久久夜色精品国产网站| 亚洲成人中文字幕| 亚洲伊人第一页| 日韩美女视频在线观看| 国产一区二区三区高清在线观看| 亚洲激情在线观看视频免费| 深夜福利日韩在线看| 亚洲二区中文字幕| 国产91精品久久久| 69久久夜色精品国产7777| 亚洲视频免费一区| www国产91| 亚洲另类激情图| 欧美一级电影免费在线观看| 91欧美激情另类亚洲| 日韩精品在线观看网站| 亚洲国产精品字幕| 午夜精品一区二区三区在线播放| 日韩中文字幕网站| 亚洲精品午夜精品| 日韩影视在线观看| 欧美性猛交xxxx乱大交蜜桃| 在线不卡国产精品| 国产精品白丝av嫩草影院| 日韩高清不卡av| 国内揄拍国内精品少妇国语| 国产va免费精品高清在线| 欧美影院久久久| 日韩最新中文字幕电影免费看| 一二美女精品欧洲| 精品国产91乱高清在线观看| 欧美国产日产韩国视频| 欧美与欧洲交xxxx免费观看| 日韩动漫免费观看电视剧高清| 57pao成人国产永久免费| 2019亚洲日韩新视频| 夜夜躁日日躁狠狠久久88av| 亚洲精品美女久久久久| 日韩av在线资源| 成人春色激情网| 色综合视频一区中文字幕| 亚洲精品视频网上网址在线观看| 久青草国产97香蕉在线视频| 91免费高清视频| 亚洲国产成人91精品| 欧美性极品少妇精品网站| 韩国三级电影久久久久久| 国产亚洲精品美女久久久久| 日本精品免费一区二区三区| 日韩激情在线视频| 亚洲片av在线| 97在线免费观看| 欧美性做爰毛片| 日韩电影大片中文字幕| 91精品综合久久久久久五月天| 欧美精品在线免费播放| 欧美xxxx18性欧美| 成人免费网视频| 亚洲精品91美女久久久久久久| 欧美性极品xxxx做受| 伊人久久五月天| 亚洲第一区在线观看| 九色精品免费永久在线| 欧美日韩亚洲一区二| 一区二区在线视频| 欧美成人激情在线| 91av网站在线播放| 国产精品久久久久久一区二区| 亚洲视频999| 国产精品嫩草影院久久久| 性欧美暴力猛交69hd| 欧美日韩激情小视频| 久久成人免费视频| 亚洲午夜未满十八勿入免费观看全集| 成人做爽爽免费视频| 亚洲网址你懂得| 福利视频第一区| 久久影视电视剧免费网站清宫辞电视| 久久久噜久噜久久综合| 亚洲欧美自拍一区| 亚洲第一黄色网| 国产精品户外野外| 欧美一级高清免费播放| 久热国产精品视频| 欧美在线一级va免费观看| 91成人免费观看网站| 色综合久久88| 97精品久久久中文字幕免费| 欧美精品久久久久久久免费观看| 国产精品欧美一区二区| 精品国产乱码久久久久久虫虫漫画| 亚洲精品国产免费| 久久青草精品视频免费观看| www.国产一区| 91久久国产精品91久久性色| 色播久久人人爽人人爽人人片视av| 中文字幕精品视频| 黑人巨大精品欧美一区二区免费| 国产亚洲精品久久久| 海角国产乱辈乱精品视频| 欧美午夜精品久久久久久人妖| 亚洲国产一区二区三区四区| 日产精品久久久一区二区福利| 日韩精品极品视频| 久久99国产精品自在自在app| 日韩精品免费在线视频观看| 亚洲国产天堂久久综合| 久久久国产一区二区| 性欧美长视频免费观看不卡| 欧美性猛交99久久久久99按摩| 欧美精品18videosex性欧美| 欧美一级黄色网| 亚洲精品视频免费在线观看| 国产精品99久久久久久久久久久久| 成人黄色中文字幕| 日韩美女视频免费看| 国产精品电影在线观看| 日韩在线欧美在线国产在线| 欧美专区国产专区| 精品国产一区二区三区久久久狼| 国产精品久久久久久久一区探花| 亚洲人成电影在线观看天堂色| 亚洲国产另类 国产精品国产免费| 成人伊人精品色xxxx视频| 国产福利精品av综合导导航| 成人激情电影一区二区| 久久影视电视剧免费网站| 日韩欧美黄色动漫| 欧美日韩激情视频| 亚洲第一级黄色片| 97在线观看视频| 亚洲第一视频网| 欧美激情第6页| 国产精品高潮在线| 成人久久久久久| 日韩欧美在线国产| 亚洲激情视频网站| 国产精品专区第二| 色噜噜久久综合伊人一本| 日韩免费av在线| 狠狠色香婷婷久久亚洲精品| 欧美小视频在线观看| 日本不卡高字幕在线2019| 日韩av在线精品| 日韩最新中文字幕电影免费看| 欧美性猛交xxxx久久久| 琪琪第一精品导航| 美乳少妇欧美精品| 中文字幕日韩视频| 亚洲高清不卡av| 日本一区二区在线免费播放|