上書き保存するには？ (ID:103895)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 「開く」、「名前をつけて保存」でファイルの名前を記録しておく 「新規作成」が押されたときににファイルの名前を""にしておく 「上書き保存」が押されたときに ファイルの名前が""なら「名前をつけて保存」をCall ファイルの名前が""でないならそのファイルの名前で保存すればいいと思います。 コード書いときます 標準モジュールに Public FileName As String Formに '「新規作成ボタン」 New_File_Click FileName = "" End Sub '「開く」ボタン Open_File_Click With CommonDialog1 .DialogTitle = "開く" .Filter = "テキスト文章 (*.txt;*.htm;*.html)|*.txt;*.htm;*.html|すべてのファイル(*.*)|*.*" .ShowOpen FileName = .FileName '--------ここからOpenメソッド------- End Sub '「名前をつけて保存」ボタン Save_File_Click With CommonDialog1 .DialogTitle = "名前を付けて保存" .Filter = "テキスト文章 (*.htm)|*.htm|すべてのファイル(*.*)|*.*" .ShowSave Fname = .FileName '--------ここからOpenメソッド------- End With End Sub '「上書き保存」ボタン Uagaki_Save_Click If FileName = "" Then Call Save_File_Click If FileName <> "" Then Open FileName For Output As # Print メソッド Close # End Sub