全体表示

[ リスト ]

ファイル一覧をゲット

 「日経パソコン」の「森本家」はおもしろい。
 今回は、ディスク内のファイルをゲットする方法だ。
 MS-DOSの時は、ファイル名を印刷する方法があったが、Windowsになってからは、マクロを使うのがいいようだ。
http://pc.nikkeibp.co.jp/npc/download/morimoto_mm.html
'ファイル一覧を得る
Sub ファイル一覧()
    パス = Cells(1, 1) & "\"
'    A1セルに書いたディレクトリを調べる
    ファイル名 = Dir(パス & "*", vbNormal)
    Cells(2, 1).Select                  ' A2セルを選択
    ActiveCell = ファイル名             ' ファイル名をセルに
    ' ファイルの数だけ繰り返す
    Do While ファイル名 <> ""
        ActiveCell.Offset(1, 0).Select  ' 1つ下のセルを選択
        ファイル名 = Dir()              ' ファイル名を取り出す
        ActiveCell = ファイル名         ' ファイル名をセルに
    Loop
End Sub
'ファイル一覧と日付とサイズを得る
Sub ファイル一覧と日付サイズ()
    パス = Cells(1, 1) & "\"
'    A1セルに書いたディレクトリを調べる
    ファイル名 = Dir(パス & "*", vbNormal)
    Cells(2, 1).Select                  ' A2セルを選択
    ActiveCell = ファイル名             ' ファイル名をセルに
    ' ファイルの数だけ繰り返す
    Do While ファイル名 <> ""
        ' 更新日時を得る
        ActiveCell.Offset(0, 1) = FileDateTime(パス & ファイル名)
        ' ファイルサイズを得る
        ActiveCell.Offset(0, 2) = FileLen(パス & ファイル名)
        ActiveCell.Offset(1, 0).Select  ' 1つ下のセルを選択
        ファイル名 = Dir()              ' ファイル名を取り出す
        ActiveCell = ファイル名         ' ファイル名をセルに
    Loop
End Sub

.


プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事