[chung1206]

各位先進們好，今天做了一個另存新檔的功能，但打開存好的圖檔卻無法顯示，程式碼如下：

Private Sub save_Click()
    CommonDialog2.Filter = "JPEG(*.jpg)|*.jpg"
    CommonDialog2.FilterIndex = 2
    CommonDialog2.ShowSave
        If Not CommonDialog2.FileName = "" Then
            Dim fso, MyFile
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set MyFile = fso.CreatePictureFile(CommonDialog2.FileName, True)
            MyFile.WriteLine (Picture1.Picture)
            MyFile.Close
            Set fso = Nothing
            Set MyFile = Nothing
            MsgBox "儲存成功"
        End If
End Sub

我大概知道問題應該出在這行Set MyFile = fso.CreatePictureFile(CommonDialog2.FileName, True)
但不知怎麼改才對，Run程式時出現錯誤訊息，謝謝。

PS:會出現執行階段錯誤'438'物件不支援此屬性或方法，指的就是我上面那行。