如何将选择文件夹对话框做成一个函数在vba中调用呀？

sblisb

找到一个代码，但忘记了如何调用时传递参数，请指教！
'新建对话框
Set FolderDialogObject = Application.FileDialog(msoFileDialogFolderPicker)
'指定对话框参数
With FolderDialogObject
    .Title = "请选择文件夹"
    .InitialFileName = "D:\"
End With
'显示对话框
FolderDialogObject.Show
'获取选择文件夹
Set paths = FolderDialogObject.SelectedItems

sblisb

请指教，谢谢

413191246se

Sub FSO_循环遍历文件夹()

    On Error Resume Next

    Dim objShell As Object, objFolder As Object, pPath$, f As Object, fd As Object, fso As Object, Stack$(), top&, n&, stxt$, doc As Document, x&

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "请选择文件夹！", 0, 0)

    pPath = objFolder.self.Path & "\"

    Set objShell = Nothing
    Set objFolder = Nothing

    If MsgBox("请确认！是否处理文件夹 " & pPath & " ?", 4 + 16) = vbNo Then Exit Sub

    Set fso = CreateObject("Scripting.FileSystemObject")