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

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

假设你原始文件路径为OrgPath（如“C:\”之类），按下面语句试试

CommonDialog1.ShowSave
FileCopy OrgPath & "1.txt",CommonDialog1.FileName

上面语句没有容错处理，你选择路径时严格按照规定输入就不会出错了。