フォルダ 指定フォルダ内のファイルの一覧を取得列挙する
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub ファイル列挙(tgtPath As String) '*********************************************** '指定フォルダ内のファイルの一覧を取得列挙する。 '拡張子指定可能 '*********************************************** '引数：tgtPath には取得列挙するフォルダフルパスを指定 Dim buf As String, i As Long, sht As Worksheet Dim 拡張子指定 As String 拡張子指定 = "jpg" '指定してください '指定しない場合は------------------- '拡張子指定 = "*" '----------------------------------- Set sht = ThisWorkbook.Worksheets.Add buf = Dir(tgtPath & "\*." & 拡張子指定) Do While buf <> "" i = i + 1 sht.Cells(i, 1) = buf buf = Dir() Loop Set sht = Nothing End Sub |