Question

VB中怎么把自己选定目录下的文件保存到指定目录

就是先从某一个目录找到一个文件，在把这个文件保存到另一目录
用 commomdialog控件怎么实现

Answer 1

Private Sub Command1_Click()
Dim sf As String, df As String
CommonDialog1.ShowOpen
sf = CommonDialog1.FileName
If sf <> "" Then
df = "e:\tmp\" & CommonDialog1.FileTitle '保存到e:\tmp文件夹，自己改
If Dir(df) <> "" Then
If MsgBox("目标文件已存在，是否覆盖？", vbYesNo) <> vbYes Then Exit Sub
End If
FileCopy sf, df
MsgBox sf & vbCrLf & "已保存为" & vbCrLf & df
End If
End Sub

Answer 2

Private Sub Form_Load()
Dim StrF As String
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If Dir(CommonDialog1.FileName) <> "" Then
StrF = CommonDialog1.FileName
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
FileCopy StrF, CommonDialog1.FileName
End If
End If
End Sub