>  > 【期間限定キャンペーン中】日本製 ベビー布団セット 5点セット 「メイ」 ベビーふとんセット組布団 綿100% 和晒 水玉 ドット 固わた 固綿 テンセル ドーナツまくら ドーナツ枕2重ガーゼ ダブルガーゼ テンセル 布団カバー ベビー枕 洗える 【送料無料】 東京家具

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Dir関数でファイル名を配列に

【期間限定キャンペーン中】日本製 ベビー布団セット 5点セット 「メイ」 ベビーふとんセット組布団 綿100% 和晒 水玉 ドット 固わた 固綿 テンセル ドーナツまくら ドーナツ枕2重ガーゼ ダブルガーゼ テンセル 布団カバー ベビー枕 洗える 【送料無料】 東京家具

動作検証バージョン:Windows版Excel(バージョン1811 ビルド11029.20108)

FileSystemObjectを使ってファイル名を配列に格納するSubプロシージャをご紹介しました。

FileSystemObjectを使うなら THE DRIVEN COACH JACKET コーチジャケット BLACK、配列にしなくてもFilesコレクションを使えば済むのではないかという気もしますが、VBAのDir関数を使ってファイル名を配列に格納するのは意味がありそうです。

[スポンサードリンク]

【期間限定キャンペーン中】日本製 ベビー布団セット 5点セット 「メイ」 ベビーふとんセット組布団 綿100% Overnight 和晒 水玉 ドット 固わた 固綿 テンセル ドーナツまくら ドーナツ枕2重ガーゼ ダブルガーゼ テンセル 布団カバー /1-6104-01 ベビー枕 洗える 【送料無料】 東京家具

以下のSubプロシージャを実行すると、C:\tempフォルダーに存在するファイルの名前が配列変数arrに格納されます。


Sub Dir関数でファイル名を配列に()
 Const PATH_ = "C:\temp"

 Dim f_name As String
 f_name = Dir(PATH_ & "\*")
 If f_name = "" Then
  MsgBox PATH_ & "にはファイルがありません。"
  Exit Sub
 End If

 Dim arr() As String
 Dim i As Long
 Do
  i = i + 1
  ReDim Preserve arr(1 To i)
  arr(i) = f_name
  f_name = Dir
 Loop While f_name <> ""
 Stop

End Sub

Stopステートメントで中断したら、拙著『いちばんやさしいExcel VBAの教本』でもよく利用しているローカルウィンドウを、メニュー[表示]-[ローカルウィンドウ]から表示し 星 スター レディースリング アメジスト プラチナ 華奢 V字、配列arrの中身を確認してみてください。

Dir関数を使ったサンプルマクロの処理

Dir関数は引数に指定された条件に一致する最初のファイル名を返します。

なにもみつからない場合は 【健康寿命をサポート】最高級品質 テラヘルツ 10mm丸玉ネックレス【長さ約45cm】金具SV925・ロジウムメッキステンレスワイヤー使用 【送料無料】公的機関で品質を調べたテラヘルツです。安心をお届けします。、空白文字列を返しますので SV925 ブラックシグニティキュービックジルコニア リング指輪 シルバー925 SILVER スターリングシルバー 刻印 文字入れ メッセージ ギフト 贈り物 ピンキーリング対応可能、メッセージを表示して終了します。
  f_name = Dir(PATH_ & "\*")
  If f_name = "" Then
   MsgBox PATH_ & "にはファイルがありません。"
   Exit Sub

ファイルが存在していた場合は、配列変数arrの1つ目の要素として格納します。
  Dim arr() As String
  Dim i As Long
  Do
   i = i + 1
   ReDim Preserve arr(1 To i)
   arr(i) = f_name

Dir関数は、引数を指定せずに呼ばれると、前の指定条件のまま次のファイルを探し、みつからなくなると空白文字列を返しますから、以下のような指定を行っています。
   f_name = Dir
  Loop While f_name <> ""

ベビー布団セット 洗える 水玉 固わた 固綿 布団カバー テンセル 和晒 【送料無料】 ドーナツ枕2重ガーゼ ダブルガーゼ ベビー枕 「メイ」 ドット ドーナツまくら 綿100% 東京家具 ベビーふとんセット組布団 【期間限定キャンペーン中】日本製 綿100% 布団カバー 5点セット テンセル

Dir関数に慣れていない方は [送料無料]ダイヤモンド リング 一粒ダイヤ 0.09ct ホワイトゴールドk18 18k リング 指輪 エンゲージリング 婚約指輪 ピンキーリング レディース ブライダル 2019、ショートカットキー[F8]でステップ実行して、1回目にDir関数を呼んでいる、
  f_name = Dir(PATH_ & "\*")
の直後の変数f_nameの中身をローカルウィンドウで確認しましょう。

つづいてDo~Loop文の中でDir関数が呼ばれたときの
  Do
   f_name = Dir
  Loop While f_name <> ""
変数f_nameの中身をローカルウィンドウで目視確認しながら、[F8]キーでじっくりとループ処理を実行してみてください。

最終更新日時:2018-12-28 14:27

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Dir関数でファイル名を配列に

TrackBack:0
TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Dir関数でファイル名を配列に

{yahoojp}jpprem01-zenjp40-wl-zd-93747