任意のフォルダ内にあるファイル名を取得したい

Question

前提・実現したいこと

マクロで特定のフォルダ内にあるファイル一覧を取得してファイル名をワークシートに返したい

発生している問題・エラーメッセージ

特定フォルダのパスが取得できない

該当のソースコード

Sub Filelist

Dim fso As Object
Dim find_path As String
Dim cf As Variant
Dim i As Long

find_path = ""

Set fso = CreateObject("Scripting.FileSystemObject")
Set cf = fso.getfolder(find_path)

i = 1
For Each f In cf.Files
Cells(i, 1) = f.Path
Cells(i, 2) = f.Name
i = i + 1
Next

End Sub

試したこと

下記のコードでダイヤログボックスから特定のフォルダを選択できるようにして、これを該当コードに合わせればいいのかと思ったのですがpathが不明だったので実装できなかった

Sub SelectFolder()
Dim SelectFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
SelectFolder = .SelectedItems
End If
End With
End Sub

補足情報（FW/ツールのバージョンなど）

Excel2010

Comments

[yuuskeccho]

まず、該当のソースコードと試したことのソースコードが逆ではないでしょうか？
あと、ソースコードを提示する際はマークダウン記法を使ってコードを記述して下さい。
https://teratail.com/help#about-template

[otn]

> 特定フォルダ
とは？？

[ttyp03]

試したことの「pathが不明だった」とは？

Answer 1

しつもんを閉じさせていただきます

Answer 2

申し訳ありません。質問の仕方が間違っていました。もう一度原因を精査して調べてみます。申し訳ございません。

Answer 3

まず、Functionプロシージャではないので、

SelectFolder = .SelectedItems

変数を用意しない限りこの記述はできませんし、
.SelectedItem には引数を指定しなければなりません。

FileDialogを使うのであれば、

Sub SelectFolder()
  Dim varTmp As Variant
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    For Each varTmp In .SelectedItems
      Debug.Print varTmp
    Next
  End With
End Sub

か、

Sub SelectFolder2()
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    With .SelectedItems
      If .Count > 0 Then
        Debug.Print .Item(1)
      End If
    End With
  End With
End Sub

の方が良いと思います。

あと、該当のソースコードに提示されている方法だと
f.Path も f.Name もどちらにもファイル名が入ってくると思います。
それとSelectFolderで指定のフォルダを選択させるのであれば、
それがf.Pathの代わりになると思いますが・・・。