怎么指定Commondialog的"另存为"中要存储的对象,例如：我要把c:\a.mdb存到d:\去,怎样指定"c:\a.mdb"?

Question

CommonDialog1.InitDir = "d:" 一定要在调用 CommonDialog1.ShowSave 之前使用 ！！！！！！

Answer 1

用filecopy函数不可以吗
filecopy "c:\a.mdb","d:\"

Answer 2

CommonDialog1.InitDir = "c:\a.mdb" 
一定要在调用 CommonDialog1.ShowSave 之前使用

Answer 3

CommonDialog1.FileName = "C:\autoexec.bat"
    CommonDialog1.ShowSave

Answer 4

供参考
Command1--得到源文件名
Command2--得到目标文件名，并保存
Option Explicit
Dim strFilename As String
Dim strSavename As String
Private Sub Command1_Click()
Me.CommonDialog1.ShowOpen
strFilename = Me.CommonDialog1.filename
End SubPrivate Sub Command2_Click()
Dim fso As Object
Dim myfile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'Me.CommonDialog1.InitDir = strFilename
Me.CommonDialog1.ShowSave
strSavename = Me.CommonDialog1.filename
Set myfile = fso.getfile(strFilename)
myfile.Copy strSavename, True
End Sub

Answer 5

Commondialog只是个路径窗口，具体的打开、保存、另存为需要你用代码去实现。