VB遍历当前目录

Option ExplicitDim FSO As New FileSystemObjectDim currentFolder As FolderDim currentFolderName As StringDim folderItem, fileItemPrivate Sub Form_Load() currentFolderName = FSO.GetFolder(App.Path) & "/content" SeachFolder (FSO.GetFolder(currentFolderName)) End SubFunction SeachFolder(str As String) Dim itemFolder Dim curFolder As Folder Set curFolder = FSO.GetFolder(str) Dim itemFile For Each itemFolder In curFolder.SubFolders SeachFolder (CStr(itemFolder)) Me.Text1.Text = Me.Text1.Text & itemFolder & Chr(13) & Chr(10) For Each itemFile In itemFolder.Files Me.Text1.Text = Me.Text1.Text & itemFile & Chr(13) & Chr(10) Next Next End Function

注： 要用FSO，需要引用Microsoft Scripting Runtime，窗体上要放一个text控件，用来显示。