PR
兎の道化師
好きなもの→ ・お菓子、スイーツ系(ザッハトルテ、ガトーショコラ、ティラミス、きな粉、ずんだ)、 桃、柿、 ・カメラ (愛機 Nikon D750→D850)、 ・AV機器、 ・欧州車 (愛車 CBA-Z27AG→DBA-B11W)、 ・ミニカー、Nゲージ (豪華寝台、SL、貨物)、 ・Twitterはスイーツ系・お菓子等の感想ツイート、楽天ROOMアフィリエイト、RTキャンペーンの応募、 ・特技！？ 時計なしで秒を計る、シールを剥がす、字を逆・裏に書く
Calendar
Category
💭最近の出来事やふとしたつぶ焼き？
(518)🏠ROOM・アフィリエイトとか
(1389)🍰スイーツ・お菓子・食べ物・飲み物
(725)🧸おもちゃ（ミニカー、Nゲージ）とか
(6)🚙車
(23)💻パソコン・スマホとか
(217)📷AV家電・カメラとか
(5)🎮楽天ポイントモール
(148)🎥YouTube
(47)Keyword Search
▼キーワード検索
Shopping List
※サイズは昨年よりやや小ぶりですが価格は据え置きました※送料無料！根室産とろサンマ（約2kg 18～20尾 1尾105g前後）お刺身にできる！北海道産獲れたて生さんまを水氷でお届けします。
【合計3980円以上で送料無料!!】【離島・大型商品除く】高儀 多機能キッチンハサミ TKG4003595 グリーン 取り外し式 分解可能 アウトドア 調理鋏 調理ばさみ 家庭用品
【推奨品】JVC JL-43N4L 43V型 4Kチューナーレステレビ Google TV搭載
PSE認証 旅行 出張用 240V 対応 省エネ 雷ガード ギフト プレゼント 引越し祝い 新生活 お部屋作り インテリア 母の日【マラソン！4時間限定10％OFFクーポン発行中】【MSCIEN】電源タップ 延長コード 3m 5m 3個ac 2usb付き USB 2type-c コンセント スイッチ付き 雷ガード usb-c マルチ たこあし分岐 oaタップ テーブルタップ 延長ケーブル 急速充電 おしゃれ スイングプラグ 壁掛け
PSE認証 旅行 出張用 240V 対応 パッと取り付けて生活感をなくす！薄型コンセントカバー付き電源タップ テーブルタップ 壁掛け 分岐 たこあしコンセント楽天1位★3冠獲得【MSCIEN】コンセント カバー 延長コード 2m 3m 5m 電源コード コンセントガード ほこりシャッター 壁に溶け込む コンセント タップ 雷ガード 9個口 OAタップ 電源タップ安全 ベビーガード タップ
【合計3980円以上で送料無料!!】【離島・大型商品除く】高儀 多機能キッチンハサミ TKG4003595 グリーン 取り外し式 分解可能 アウトドア 調理鋏 調理ばさみ 家庭用品
【推奨品】JVC JL-43N4L 43V型 4Kチューナーレステレビ Google TV搭載
PSE認証 旅行 出張用 240V 対応 省エネ 雷ガード ギフト プレゼント 引越し祝い 新生活 お部屋作り インテリア 母の日【マラソン！4時間限定10％OFFクーポン発行中】【MSCIEN】電源タップ 延長コード 3m 5m 3個ac 2usb付き USB 2type-c コンセント スイッチ付き 雷ガード usb-c マルチ たこあし分岐 oaタップ テーブルタップ 延長ケーブル 急速充電 おしゃれ スイングプラグ 壁掛け
PSE認証 旅行 出張用 240V 対応 パッと取り付けて生活感をなくす！薄型コンセントカバー付き電源タップ テーブルタップ 壁掛け 分岐 たこあしコンセント楽天1位★3冠獲得【MSCIEN】コンセント カバー 延長コード 2m 3m 5m 電源コード コンセントガード ほこりシャッター 壁に溶け込む コンセント タップ 雷ガード 9個口 OAタップ 電源タップ安全 ベビーガード タップ
2022.02.06
テーマ： エクセル 関数 マクロ(13)
カテゴリ： 💻パソコン・スマホとか
指定フォルダの下層階も含め
保存されたファイルを
一覧表で作成するＶＢＡ
Sub sample()
Dim v As Variant
'v = GetFileList("指定フォルダ")
a = InputBox("フォルダ名をフルパス入力")
v = GetFileList(a)
End Sub
Function GetFileList(ByVal argDir As String) As String()
Dim i As Long
Dim aryDir() As String
Dim aryFile() As String
Dim strName As String
ReDim aryDir(i)
aryDir(i) = argDir '引数のフォルダを配列の先頭に入れる
'まずは、指定フォルダ以下の全サブフォルダを取得し、配列aryDirに入れます。
i = 0
Do
strName = Dir(aryDir(i) & "\", vbDirectory)
Do While strName <> ""
If GetAttr(aryDir(i) & "\" & strName) And vbDirectory Then
If strName <> "." And strName <> ".." Then
ReDim Preserve aryDir(UBound(aryDir) + 1)
aryDir(UBound(aryDir)) = aryDir(i) & "\" & strName
End If
End If
strName = Dir()
Loop
i = i + 1
If i > UBound(aryDir) Then Exit Do
Loop
'配列aryDirの全フォルダについて、ファイルを取得し、配列aryFileに入れます。
ReDim aryFile(0)
For i = 0 To UBound(aryDir)
strName = Dir(aryDir(i) & "\", vbNormal + vbHidden + vbReadOnly + vbSystem)
Do While strName <> ""
If aryFile(0) <> "" Then
ReDim Preserve aryFile(UBound(aryFile) + 1)
End If
aryFile(UBound(aryFile)) = aryDir(i) & "\" & strName
'実行結果が分かりやすいように、テスト的にセルに書き出す場合
Cells(UBound(aryFile) + 2, 1) = strName
Cells(UBound(aryFile) + 2, 2) = aryFile(UBound(aryFile))
strName = Dir()
Loop
Next
GetFileList = aryFile
End Function
お気に入りの記事を「いいね！」で応援しよう
[💻パソコン・スマホとか] カテゴリの最新記事
-
怪しい商品 節電器 鍋・フライパン 2024.09.29
-
楽天ポイントモールでみられるサポート詐… 2024.09.28
-
やっぱ見られるね 2024.09.22
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
