dir ファイル名を読み取る

 文書が増えてきたので、ファイル名を管理するため
にエクセルでフォルダ上のファイルを全て1列目に表
示するエクセルマクロを作った。
マクロの起動は
 CTRL+Shift+F
で起動します。
起動したら、ディレクトリを入力してください。
シートはどこでも可能。
エクセルのバージョンは2002です。
パスワードなどはない。
うまく動かない時は以下をマクロにして下さい。マク
ロ名はDirectoryです。

Sub Directory()
    ipnt = 2 'コメント 2行目から表示
    cdir = InputBox("ディレクトリ名を入力してください")
    If InStr(cdir, ":") <> 0 Then
        ChDrive (cdir)
    End If
    ChDir (cdir)
    cfile = Dir("*.*", vbNormal)
    Do While cfile <> ""
        Cells(ipnt, 1) = cfile
        cfile = Dir
    Loop
End Sub
ソースファイル(Dir.xls) VBはいろいろなところで簡単に使える言語です。
公開日:2010-6-23 更新日:
作成者:織田信義
連絡先:nobuyoshi_oda@mtd.biglobe.ne.jp