文件修改后，保存为同文件名，为什么数据不变？

Question

修改数据后，用同一文件名保存。出现对话框，问是否替换，点击是，但数据没发生变化
为什么？难道这步也要有代码？？
用了cdlOFNOverwritePrompt

Answer 1

open filename for binary as #1
put #1,,你修改后的数据
close #1

Answer 2

一个richtextbox控件
Private Sub Command1_Click()
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
rtbox.LoadFile (FileName)
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
rtbox.SaveFile (FileName)
End Sub

Answer 3

代码格式跟rainstormmaster的类似
我要是换个文件名，那就是正确的
但为什么同一个文件名，就不能更新数据呢
那位高手解释一下，项目急呀
谢谢

Answer 4

同名就先Kill掉啊.(删掉)
VB有Kill命令.这样再存肯定没有问题了.

Answer 5

先保存为 temp 文件名。用 Dir() 检测到temp 文件后，Kill 原文件，然后：Name temp.??? As Oldname.??? '用你的扩展名替换?注意：你的就文件必须关闭。否则无法改写和删除。也许你的代码中有 On Error 语句，同时旧文件没有关闭，所以无法改写。如果是那样的话，先试试关闭旧文件。

Answer 6

同名文件保存先删掉
kill 文件名
然后保存
如果还是不行的话,该检查一下你准备写到文件里的内容是不是没有改过?

Answer 7

楼上都说的差不多了，如果还有问题的话，建议你检查一下你的机器，步骤：
显示保存文件对话框
根据返回的文件名判断文件是否存在
如存在，则kill之
写文件

Answer 8

rainstormmaster(暴风雨 v2.0) 
强人一个啊!

Answer 9

我用kill删除不了，帮忙看看代码错哪了 
          FileName= CommonDialog1.FileTitle
           Call FileExists(CommonDialog1.FileTitle)
            If FLEX = True Then              Kill CommonDialog1.FileTitle
              GoTo trr
            Else:
                                           trr:           k = Val(txtNum.Text)
              m = Val((txtNum2.Text))
              FileNum1 = FreeFile   '获得空文件号              If s = "r" Or s = "R" Then                   Open FileName For Output Access Write As #FileNum1  '打开文件                       Print #FileNum1, Spc(5); txtNum.Text
                       For i = 0 To k - 1
                          Print #FileNum1, Spc(5); txtWdg(i).Text   '写文件
                       Next
                       Print #FileNum1, Spc(5); txtNum2.Text
                       For i = 0 To m - 1
                          Print #FileNum1, Spc(5); txtWdg2(i).Text   '写文件
                       Next
                       Print #FileNum1, Spc(5); txtBmk.Text
                       Print #FileNum1, Spc(5); txtUplim.Text
                       Print #FileNum1, Spc(5); txtLowlim.Text
                       Print #FileNum1, Spc(5); txtHDDate1.Text
                       Print #FileNum1, Spc(5); "000" & txtMRP.Text
                       Print #FileNum1, Spc(5); txtBmk2.Text
                       Print #FileNum1, Spc(5); txtUplim2.Text
                       Print #FileNum1, Spc(5); txtLowlim2.Text
                       Print #FileNum1, Spc(5); txtHDDate2.Text
                       Print #FileNum1, Spc(5); "000" & txtMDP.Text
                       Print #FileNum1, Spc(5); txtDate.Text
                       Print #FileNum1, Spc(5); "EOF"
                  Close #FileNum1  
            End if
        End if

Answer 10

FileName= CommonDialog1.FileTitle
* FileName=CommonDialog1.FileName

Answer 11

看看是不是取文件名的问题，
CommonDialog 里文件名是 .FileName

Answer 12

//FileName= CommonDialog1.FileTitle改为：
FileName= CommonDialog1.Filename

Answer 13

来晚了
kill掉没有什么问题，我自己的程序就是这么写的