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

[lzxbl01]

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

[of123]

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

[king06]

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

[孤独剑_LPZ]

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

[king06]

Private Sub Command1_Click()
    Dim mfile As String, mfile2  As String
    On Error Resume Next
    CommonDialog1.InitDir = App.Path
    CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
    CommonDialog1.ShowSave
    mfile = App.Path & "\1.txt"
    mfile2 = CommonDialog1.FileName  '得到目标文件的路径

    If Trim(mfile2) = "" Then Exit Sub
    If Dir(mfile2) <> "" Then
        If MsgBox(Dir(mfile2) & "  文件已经存在，是否替换？", vbYesNo, "警告") = vbNo Then Exit Sub
    End If
    
    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
    
    MsgBox "保存完毕！"
End Sub

[lzxbl01]

[Quote=引用 4 楼 king06 的回复:]
VB codePrivateSub Command1_Click()Dim mfileAsString, mfile2AsStringOnErrorResumeNext
CommonDialog1.InitDir= App.Path
CommonDialog1.Filter="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.Sh?-
[/Quote]

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

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 .

[lzxbl01]

[Quote=引用 6 楼 chen8013 的回复:]
同意 3F .

[/Quote]

看了你的话，我恍然大悟，4楼大哥的语句原来没3楼的那句，那我不懂的那3段的用途是不是就相当于3楼大哥的那句呢

[king06]

buff()是个字节数组,用来保存1.txt内容,作为中转的.
3楼的比较简洁.

[舉杯邀明月]

VB 有内置的文件拷贝功能 FileCopy .

===========================================
FileCopy 语句

复制一个文件。


语法:　　FileCopy source, destination

FileCopy 语句 的语法含有以下这些命名参数：

部分　　　　描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。



说明

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

[lzxbl01]

[Quote=引用 8 楼 king06 的回复:]
buff()是个字节数组,用来保存1.txt内容,作为中转的.
3楼的比较简洁.
[/Quote]
Thank you啊，原来如此

[lzxbl01]

[Quote=引用 9 楼 chen8013 的回复:]
VB 有内置的文件拷贝功能 FileCopy .

===========================================
FileCopy 语句

复制一个文件。


语法:　　FileCopy source, destination

FileCopy 语句 的语法含有以下这些命名参数：

部分　　　　描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。


说明

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

[/Quote]

谢谢提供