求助：怎样将生成的多个文件保存的绝对路径修改为‘选择文件夹’方式的相对路径来保存这些文件？

各位VB达人：
下面这段代码的作用是讲生成是文件(多个文件)保存到D盘的TEST文件夹下，我想通过‘选择文件夹’方式将生成的文件存放在任意自选的目录下。请问对如下代码做如何修改能给达到想要的效果？我是菜鸟，请高手帮助。谢谢！
        For i = 0 To 234
        
            Open "D:\TXT" & strName(i) & ".txt" For Binary Access Write As #1
                 Put #1, , Replace$(strContent, "$$$", strName(i))
            Close #1
        Next --------------------编程问答-------------------- 使用commdlg控件吧,包含打开,保存,颜色一些功能.用户选择的路径和文件名在属性里面返回 --------------------编程问答-------------------- Commondialog 通用对话框控件,使用非常简单, 点住它按一下F1有详细例子. 两三句代码就可以了.

补充：VB ,  控件