vb把突破保存到指定的文件夹,

Question

 我的打开图片的代码:
 CmDialog1.Filter = "*|*.jpg"     '文件只能是.jpg格式
 CmDialog1.ShowOpen
Pic1.Picture = LoadPicture(CmDialog1.FileName)   '只接收图片
StatusBar1.Panels(1).Text = CmDialog1.FileName保存的代码:
 CmDialog1.DialogTitle = "另存为"
 CmDialog1.Filter = "*.jpg|*.jpg"
 CmDialog1.ShowSave
 SavePicture Pic1.Picture, CmDialog1.FileName
 这样是可以保存的,但是现在我要在我点保存了以后,他就自动保存了,比如,我要保存在".\image\"文件夹下面.点保存后,就自动保存到里面了,请高手指教!不胜感谢!

Answer 1

既然要直接保存，那就只保留SavePicture Pic1.Picture, CmDialog1.FileName就行了。上面3行就不要了。提醒：即使是直接保存，也需要设定图片的文件名。

Answer 2

SavePicture Pic1.Picture, StatusBar1.Panels(1).Text