Sub Sample1() Dim fileList As Collection Set fileList = New Collection Dim buf As String, out As String, cnt As Long Const inputPath As String = "C:\work\" Const outPath As String = "C:\out\" buf = Dir(inputPath & "*") ' ファイルリスト取得…