如何另存图片

Question

请问各位高手，如何用CommonDialog1.ShowSave方法，将程序下的DDED.JPG另存到其他文件夹，请帮忙。

Answer 1

dim Filename as string'加载图片
Picture1.picture=loadpicture("路径\DDED.JPG")'显示保存对话框CommonDialog1.ShowSave'取得保存文件名
FileName=CommonDialog1.FileNameSavePicture Picture1.Picture, FileName 

Answer 2

谢谢，我意思是不用Picture1.picture=loadpicture("路径\DDED.JPG") ，而是直接读取DDED.JPG，然后用CommonDialog1.ShowSave实现另存为，有点像复制，但要弹出“另存为”对话框。

Answer 3

图片另存为JPG文件，要用到GDI+。
看看这里，你在保存JPG格式文件时加一个另存为对话框即可以了。
http://www.cnblogs.com/wangminbai/archive/2008/03/23/1118638.html

Answer 4

如果这个DDED.JPG已存在于磁盘中是一个磁盘文件,先用Filecopy将它拷到新的文件夹再用Delete 方法删除原来的文件就可以了.如果非要用CommonDialog,代码为
Private Sub Form_Load()
FileName1="路径\DDED.JPG" 
Open FileName1 For Binary As #1CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
Open FileName For Binary As #2
Put #2, , FileName1
Close #1
Close #2
End Sub
当然,你用上面的拷贝的方法也行

Answer 5

1、如果你要用CommonDialog1.ShowSave实现另存为，那就将DDED.JPG装入图片框Picture1用我3楼方法，可以存为更多的格式。或者下面方法，直接复制：
Private Sub Command1_Click()
        On Error Resume Next
        Dim FSO As Object
        Dim cFile As String
        Set FSO = CreateObject("scripting.filesystemobject")
        CommonDialog1.DialogTitle = "保存文件"
        CommonDialog1.Filter = "文件格式*.jpg|*.jpg"
        CommonDialog1.ShowSave
        cFile = CommonDialog1.FileName
        '输入文件名 d:\klj123,保存的是klj123.jpg。原来是JPG，格式变不了。
        FSO.copyfile "c:\klj123\DDED.JPG", cFile
End Sub
2、如果是简单的文件复制，用下面这个：
Private Sub Command1_Click()
        On Error Resume Next
        Dim FSO As Object
        'Dim cFile As String
        Set FSO = CreateObject("scripting.filesystemobject")
        'CommonDialog1.DialogTitle = "保存文件"
        'CommonDialog1.Filter = "文件格式*.jpg|*.jpg"
        'CommonDialog1.ShowSave
        'cFile = CommonDialog1.FileName
        FSO.copyfile "c:\1.bmp", "d:\2.bmp"
End Sub