指定フォルダのファイル名検索2　 次の文書

Excel 2007

Sub Sub ファイルリスト一覧()

Dim sFileList() As String
Dim sFolder As String

ReDim sFileList(0)
sFolder = "d:\temp\"

Call FileList(sFolder, sFileList)

Cells(1).Resize(UBound(sFileList), 1) = WorksheetFunction.Transpose(sFileList)

End Sub

Sub FileList(sFolder As String, sFileList() As String)
'再帰処理でファイル抽出
Dim n0 As Long
Dim s0 As String
Dim v0 As Variant
Dim oFolder As Object
Dim o0 As Object
Dim o1 As Object
Dim oFSO As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(sFolder) Then
Exit Sub
End If
Set oFolder = oFSO.GetFolder(sFolder)
Set o0 = oFolder.Files
For Each o1 In o0
sFileList(UBound(sFileList)) = o1.Path
ReDim Preserve sFileList(UBound(sFileList) + 1)
Next

DoEvents

Set o0 = oFolder.SubFolders
For Each o1 In o0
If (o1.Attributes And (2 + 4)) = 0 Then
FileList o1.Path, sFileList
End If
Next
End Sub
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)