特定フォルダ内のファイル名一覧を作成する
 サンプルマクロは、C:\内のファイル名の一覧をアクティブシートに作成します。
実行するとアクティヴシートの内容は一度クリアされてから表が作成されるので、
必要な内容が記述されているシートではバックアップを取ってから実行してください。

Sub Sample()

    Dim myFileName As String
    Const myDir As String = "C:\"
        
    Application.ScreenUpdating = False
    Cells.Clear
    Range("A1").Value = "ファイル名"
    
    '隠しファイルとシステムファイルも表示
    myFileName = Dir(myDir & "*", vbHidden + vbSystem)
    
    While myFileName <> vbNullString
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value _
            = myFileName
        myFileName = Dir()
    Wend
    
    Columns(1).AutoFit
    Application.ScreenUpdating = True

End Sub

 特定のフォルダの中にあるファイルに対して、一括して何かをしたい場合には、
上記のようにDir関数を利用します。

 また、その他にもFSO(File Search Object)を利用する方法もあります。

Excel95/97/2000



戻る


Excel Word Access VBA! モーグ