VBA 一つのフォルダの中のフォルダ名とファイル名

質問

一つのフォルダの中のフォルダ名とファイル名を取得したい場合は

**************************************
Sub test()
Dim MyFileName As String
Dim MyFolderName As String
Dim myFSO As Object
Dim MyFolder As Scripting.Folder

MyFolderName = "C:\"

'フォルダを取得
MyFileName = Dir(MyFolderName & "*.*")

Do While MyFileName <> ""

Debug.Print MyFileName
MyFileName = Dir()
Loop

'ファイルを取得
Set myFSO = CreateObject("Scripting.FileSystemObject")
With myFSO
With .GetFolder(MyFolderName)

For Each MyFolder In .SubFolders
Debug.Print MyFolder.Name
Next

End With
End With

Set myFSO = Nothing

End Sub
**************************************

の様に
ファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？
もうちょっとスマートなコードはありますか？

回答No.1

f272 · ベストアンサー

区別する必要がなければ...

'何でも取得
MyFileName = Dir(MyFolderName & "*.*",63)
Do While MyFileName <> ""
Debug.Print MyFileName
MyFileName = Dir()
Loop

お礼

どうもありがとうございました。