我在存新檔的時候沒有popup save視窗？
存舊檔沒有問是否要over write，要怎麼樣它才會知道是新檔還是舊檔？最下面的MsgBox應該是錯的，在任何情況下都會跳出來‧
請大家幫幫忙‧
'儲存檔案
Private Sub mnuSave_Click()
CommonDialog1.Filter = "文字文檔(*.txt)!*.txt!RTF文檔(*.rtf)!*.rtf!所有檔案(*.*)!*.*"
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "我的記事本：" & FileName
MsgBox "檔案已經存在，是否要覆蓋？", vbYesNo
End Sub
存舊檔沒有問是否要over write，要怎麼樣它才會知道是新檔還是舊檔？最下面的MsgBox應該是錯的，在任何情況下都會跳出來‧
請大家幫幫忙‧
'儲存檔案
Private Sub mnuSave_Click()
CommonDialog1.Filter = "文字文檔(*.txt)!*.txt!RTF文檔(*.rtf)!*.rtf!所有檔案(*.*)!*.*"
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "我的記事本：" & FileName
MsgBox "檔案已經存在，是否要覆蓋？", vbYesNo
End Sub
文章標籤
全站熱搜
是開啟屬於您自己的檔案嗎? 如果是的話相信您應該知道什麼時候有改變檔案的動作, 利用個變數判斷即可..
如果你灌 VB 時有裝線上手冊，把下列網址貼到 IE 網址列： mk:@MSITStore:C:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VS\1028\cmdlg98.chm::/html/vbproflagsfile.htm CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNOverwritePrompt
謝謝兩位回應！按照心冷在Flags加了屬性及加了CancelErr已可出現ShowSave，但另一問題是開檔Save沒問題，在當前開新檔按Save後，想起文件內要改，就取消Save‧發現在這樣情況下舊檔會變成新檔的內容‧請幫忙看看是漏了甚麼code‧Thanks! '儲存檔案 Private Sub mnuSave_Click() 'CommonDialog1.Flags = cdlOFNCreatePrompt Or cdlOFNOverwritePrompt CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNOverwritePrompt CommonDialog1.Action = 2 CommonDialog1.CancelError = True '啟動取消鈕的確認 On Error GoTo Errexit '按下取消鈕，跳至Errexit處 Errexit: Exit Sub End Sub
我在開檔的code下面加了這一段，問題好像解決了 CommonDialog1.CancelError = True '啟動取消鈕的確認 On Error GoTo Errexit '按下取消鈕，跳至Errexit處 Errexit: