エクセルvbaでファイル書き込みのとき同じファイルがある場合に\"上書きしますか？\"というメッセージをだすには？

エクセルvbaでファイル書き込みのとき同じファイルがある場合に"上書きしますか？"というメッセージをだすには、どのようにやればよいでしょうか？
ダイアログで上書きするときにメッセージを出すようにしたいのです。
現在は、
Dim fo As New Scripting.FileSystemObject
Dim ts As TextStream

Dim myDir As String
Dim myFileDir As String

myDir = ThisWorkbook.Path
myFileDir = myDir & "\a.txt"
'ここにファイルを探すコードを埋め込んでいます。
Set ts = fo.CreateTextFile(myFileDir, False)

よろしくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2008/01/23 17:06

If ファイル有り Then

　　If MsgBox("上書きしますか？", vbYesNo) = vbYes Then
　　　　Set ts = fo.CreateTextFile(myFileDir, True)
　　Else
　　　　'Exit Sub は 必要に応じて他の処理に替えてください。
　　　　Exit Sub
　　End If
Else
　　Set ts = fo.CreateTextFile(myFileDir, False)
End If
　

この回答へのお礼

有難うございます。

お礼日時：2008/01/24 16:08