ファイル ファイルの一覧を取得する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル ファイルの一覧を取得する]
Sub ファイルの一覧を取得する()
'*******************************************************************************
'ファイルの一覧を取得する
'*******************************************************************************
    Dim buf As String, i As Long
    buf = Dir("D:\*.*")
    Do While buf <> ""
        i = i + 1
        Worksheets("Sheet1").Cells(i, 1) = buf
        buf = Dir()
    Loop
End Sub





Production Japan Import Application. Since 1998