Question

VB 怎样将生成的文件通过‘选择文件夹’方式保存

Answer 1

为了在应用程序中使用CommonDialog控件，应将其添加到窗体上并设置属性：控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将CommonDialog控件显示成一个图标。此图标的大小不能改变。
CommonDialog控件可以显示如下常用对话框：
“打开”
“另存为”
“颜色”
“字体”
“打印”
要使用CommonDialog控件
1．添加CommonDialog控件，则应从“工程”菜单中选定“部件”，将控件添加到工具箱中。在标记对话的“控件”中找到并选定空间，然后单击“确定”按钮。
2．单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。在窗体上绘制CommonDialog控件时，控件将自动调整大小。像Timer控件一样，CommonDialog控件在运行时不可见。
3．运行时，请适当使用下表所列方法显示需要的对话。
-----------------------------------------------------------
方法 显示的对话框
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用 Windows “帮助
-----------------------------------------------------------------------------
显示“打开”和“另存为”对话框
有了“打开”对话框就可以指定驱动器、目录、文件扩展名和文件名。“另存为”对话框在外观上与“打开”对话框相同，只是对话框的标题和文件名是暗淡的。运行时选定文件并关闭对话框后，可用FileName属性获取选定的文件名。
要显示“打开”对话框：
1．指定在“文件类型”列表框中显示的文件过滤器列表。
可用下列格式设置Filter属性：
description1|filter1|description2|filter2…
Dscription是列表框中显示的字符串 ---- 例如：“Text Files(*.txt)”。Filter是实际的文件过滤器 ---- 例如：“*.txt”。每个description|filter设置间必须用管道符号（|）分隔。
2．用ShowOpen方法显示对话框。
在出现的对话框里选定文件后可用FileName属性获取选定文件的名称。
对所有公共对话框，当CancelError属性为True，而且拥护单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误，以此检测是否按了“取消”按钮。
下列代码显示“打开”对话框并以选定的文件名为打开文件过程的参数：
Private Sub Command1_Click()
'CancelError属性为True。
On Error GoTo ErrHandler
'设置过滤器
CommonDialog1.Filter = "All Files（*.*）|*.*|Text Files（*.txt）|*.txt|Batch Files（*.bat）|*.bat"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 2
'显示“打开”对话框。
CommonDialog1.ShowOpen
'调用打开文件的过程
OpenFile(CommonDialog1.FileName) '注意：这里是一个自定义打开文件的过程
Exit Sub

ErrHandler:
'用户按“取消”按钮。
Exit Sub
End Sub

追问

For i = 0 To 2
Open "D:\TXT" & strName(i) & ".txt" For Binary Access Write As #1
Put #1, , Replace$(strContent, "123", strName(i))
Close #1
Next
这段代码执行完成之后将生成的四个txt文件保存在D:\TXT下面，我现在想不想生成的文件保存在D:\TXT下面，而是通过手动选择文件夹的方式保存到其他文件夹中。请问应该怎样修改上面的代码能给实现想要的效果？谢谢！

追答

如果你想达到这样的效果：
那建议不使用CommonDialog控件，改用以下三个控件：
1．DriveListBox 控件 ---- 磁盘列表控件，可以返回你的计算机上的所有盘符
2．DirListBox 控件　－－　文件夹列表控件，可以返回你选中的当前磁盘当前文件夹中的所有子文件夹
3．FileListBox 控件　－－　文件列表，可以返回当前文件夹里的所有文件

追问

能告诉我具体怎样使用在上面的代码中吗？我刚接触VB是小菜鸟，还请你帮忙。谢谢！

追答

方法：
添加以上三个控件，再添加label1，label2，label3，一个Command1
由于字数限制，无法回答了，给个邮箱联系．syx54@sohu.com

Answer 2

使用通用对话框就可以啦，通用对话框就是CommonDialog1控件
你现在CommonDialog1控件画到窗体上，然后在“保存”按钮中调用它既可，调用代码最简单的就是增加以下这句：
CommonDialog1.ShowSave
当然还可以设置其他属性哦，如保存文件类型、保存文件默认位置等等。

Answer 3

使用CommonDialog控件哦