Question

vb 用CommonDialog1控件把一个指定文件保存起来

Answer 1

建立一个textbox和command,使用CommonDialog1
将CommonDialog1名称修改为cmdlFilePath Text1修改为txtFilePath
以下是指定一个图片文件保存的例子.你看看吧

Private Sub Command2_Click()
On Error Resume Next
With cmdlFilePath
.FileTitle = "All Files (*.*)|*.*|Jpg Files(*.jpg)|*.jpg|Jpeg Files(*.jpeg)|*.jpeg|gif Files (*.gif)|*.gif"
.ShowOpen
txtFilePath.Text = cmdlFilePath.FileName
Image1.Picture = LoadPicture(txtFilePath.Text)
End With
End Sub

Answer 2

楼上的好像是打开文件吧。
建一个Command1,Text1,Commondialog1, 楼主没写指定什么文件，我就保存Text1内容吧。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) > 0 Then
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close
MsgBox "保存完毕"
End If
End Sub