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
Private Sub Command1_Click()
Dim A As Long
Dim B
B = "c:\aa"
A = WritePrivateProfileString("TIP", "START", B, App.Path & "\ABC.INI")
If A = 0 Then MsgBox ("写文件时出错")
End Sub


运行时提示类型不匹配，这里的变量B没办法代入，哪位老大帮改下啊

把声明改成这样试试
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As string, ByVal lpFileName As String) As Long

谢谢斑竹啊，OK了