PR
Calendar
兎の道化師
好きなもの→ ・お菓子、スイーツ系(ザッハトルテ、ガトーショコラ、ティラミス、きな粉、ずんだ)、 桃、柿、 ・カメラ (愛機 Nikon D750→D850)、 ・AV機器、 ・欧州車 (愛車 CBA-Z27AG→DBA-B11W)、 ・ミニカー、Nゲージ (豪華寝台、SL、貨物)、 ・Twitterはスイーツ系・お菓子等の感想ツイート、楽天ROOMアフィリエイト、RTキャンペーンの応募、 ・特技！？ 時計なしで秒を計る、シールを剥がす、字を逆・裏に書く
Category
💭最近の出来事やふとしたつぶ焼き？
(840)🏠ROOM・アフィリエイトとか
(1642)🍰スイーツ・お菓子・食べ物・飲み物
(904)🧸おもちゃ（ミニカー、Nゲージ）とか
(9)🚙車
(53)💻パソコン・スマホとか
(420)📷AV家電・カメラとか
(9)🎮楽天ポイントモール
(217)🎥YouTube
(178)Keyword Search
▼キーワード検索
Freepage List
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
お気に入りの記事を「いいね！」で応援しよう
[💻パソコン・スマホとか] カテゴリの最新記事
-
詐欺、フィッシング：ローチケでUSJ当たっ… 2025.11.30
-
警察からの偽メール 2025.11.21
-
血圧モニタートラッカー 2025.11.20
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
