vb展开指定目录下的文件夹及文件

我猜你是想遍历指定的文件夹,我这里有个函数,你可以自己改一下

'/************************************************************************************/
'/函数功能：遍历文件夹
'/参数说明：参数一 文件夹路径
'/编 写 人：于莹莹
'/编写日期：2007-8-28
'/************************************************************************************/
Public Sub SeachFile(ByVal strPath As String)
Dim Myname As String, sFilePath As String
Dim dir_i() As String
Dim i, idir As Long
Dim sFile As String

On Error Resume Next

If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
Myname = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
Do While Myname <> ""
DoEvents
If Myname <> "." And Myname <> ".." Then
If (GetAttr(strPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录]