这种情况下的 CommonDialog1.ShowSave VB代码怎么写

我想把exe程序所有目录下的1.txt文件，用一个按钮导出去，就是说，我点一下按钮，出现保存对话框，然后我选择一个路径，就可以把exe程序所有目录下的1.txt文件保存到我选择的那个路径下，而且文件名也改成了我在对话框那输入的新文件名，请教前辈，这个过程的CommonDialog1.ShowSave该怎么写，谢谢！

---

"exe程序所有目录下" 是什么意思？

---

exe程序所在目录下。楼主用词不当的吧

---

估且认为是手误,exe目录下只有一个1.txt
filecopy "1.txt", CommonDialog1.filename

---

引用

VB codePrivateSub Command1_Click()Dim mfileAsString, mfile2AsStringOnErrorResumeNext
    CommonDialog1.InitDir= App.Path
    CommonDialog1.Filter="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
    CommonDialog1.Sh?-

看起来就是这个，虽然还没试，不过我不懂下面这些语句干什么的，您能告诉我有什么用吗？

Dim buff() As Byte, i As Long
    i = FileLen(mfile)
    ReDim buff(i - 1)

    Open mfile For Binary As #1
    Get #1, , buff
    Close #1

    Open mfile2 For Binary As #1
    Put #1, , buff
    Close #1


exe程序所有目录下就是说1.txt是相对路径，即在本目录下的一个文件，可能是我没说清楚，呵呵

---

同意 3F .

---

引用

同意 3F .