ini文件操作，很有意思的问题

[ml_zhang]

有以下程序段：
Option Explicit
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Dim A

Private Sub Command1_Click()
Dim QQ
QQ = WritePrivateProfileString("www" & A, "123", "1464", "d:\zz.ini")
FileCopy "d:\zz.ini", "d:\zzz.ini"
A = A + 1
End Sub

Private Sub Form_Load()
A = 1
End Sub
使用时会发现拷贝过来的文件内容与原文件不符，呵呵！不信，你试一下，找到原因的话跟我说一声。

[bamyl]

没问题啊？

是不是你搞错了？

[Limu]

如果有什么不同的話﹐大概是因為ANSI內碼和UniCode內碼在作怪。
我曾有過這樣的遭遇。

[sunsol]

好像是的
你不用filecopy试一下.

[sunsol]

很值得讨论的问题,
我是在vb5ide中试的,没有生成exe,同时还打开了uedit,
多按几次就不行了,好像只有第一次可以.
加doevents也好像不行,延时好像也不行.
有没有高手回答?

[ml_zhang]

如果在copyfile前加一msgbox语句，则毛病消失。由此，问题的原因在于ini文件操作后，并没有完全释放该操作过程。欢迎大家参与。

[wulang]

很正常啊，一点问题都没有！

[TopHead]

没什么不同的啊。

[ml_zhang]

这就更有意思了，为什么有的正常，有的就不完整呢？多点击button几次， 一般就发现最后一次的记录不在考过来的文件中。

[wulang]

我按了几十次都没出问题
可能与配置和软件版本有关，我的是赛扬366，Win2000+VB6中文版