vb 如何读取某目录下所有文件及子文件夹
VB读取 目录内 的 文件名 Private Sub Command1_Click()Dim d As String，s As Stringd=Dir(\"d：\\yule\\*.*\")'这里是D盘，你可以改成其他盘Open\"d：\\tu.txt\"For Append As#1Do Until d=\"s=LCase(Right(d，4))If s=\".jpg\"Or s=\".png\"Or s=\"jpeg\"Then Print#1，dd=DirLoopClose#1MsgBox\"运行完毕！End Sub
vb获取一个目录下所有文件并存储到一个数组，包括子目录 首先我是将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist()：Private&7a6431333337613239nbsp；Function folderlist(pathname As String，treeflag As Integer)'treeflag：0列表 1树形 2树形展开'文件夹数和名称Dim sf As Stringsf=Dir(pathname，vbDirectory)'获取第一个目录名foldernum=0Do While sf<；>；\"' 跳过当前的目录及上层目录If sf<；>；\".\"And sf<；>；\".\"ThenIf(GetAttr(pathname+sf)And vbDirectory)=vbDirectory ThenIf treeflag=0 ThenText2=Text2&sf&vbCrLf ' 如果它是一个目录，将其名称添加到列表ElseIf treeflag=1 ThenText2=Text2&Treestr&sf&vbCrLfElseIf treeflag=2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用Text2=Text2&Treestr&sf&vbCrLffolderlist pathname+sf，treeflagfilelist pathname+sf，treeflagEnd Iffoldernum=foldernum+1 '统计文件夹数目End IfEnd Ifsf=Dir()' 查找下一个目录LoopIf treeflag=0 ThenIf foldernum<；>；0 ThenText2=Text2&vbCrLf&\"=共有\"&foldernum&\"个文件夹=\"&vbCrLf&vbCrLfElseText2=Text2&\"=无子目录=\"&vbCrLf&vbCrLfEnd IfElseIf foldernum<；>；0 Then。
VB如何获取一个目录下所有文件名？ Module1.bas文件：Public Const MAX_PATH=260Public Const FILE_ATTRIBUTE_ARCHIVE=H20Public Const FILE_ATTRIBUTE_HIDDEN=H2Public Const INVALID_HANDLE_VALUE=-1Public Type FILETIMEdwLowDateTime As LongdwHighDateTime As LongEnd TypePublic Type WIN32_FIND_DATAdwFileAttributes As LongftCreationTime As FILETIMEftLastAccessTime As FILETIMEftLastWriteTime As FILETIMEnFileSizeHigh As LongnFileSizeLow As LongdwReserved0 As LongdwReserved1 As LongcFileName As String*MAX_PATHcAlternate As String*14End TypePublic Declare Function FindFirstFile Lib\"kernel32\"AliasFindFirstFileA\"(ByVal lpFileName As String，lpFindFileData AsWIN32_FIND_DATA)As LongPublic Declare Function FindNextFile Lib\"kernel32\"AliasFindNextFileA\"(ByVal hFindFile As Long，lpFindFileData AsWIN32_FIND_DATA)As LongPublic Declare Function FindClose Lib\"kernel32\"(ByVal hFindFile As Long)As LongPublic Function GetFullAllFileFilter(Directory As String)As StringGetFullAllFileFilter=Directory+\"\\*.*End 。
