ini文件操作,很有意思的问题
有以下程序段:
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
使用时会发现拷贝过来的文件内容与原文件不符,呵呵!不信,你试一下,找到原因的话跟我说一声。