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没办法代入，哪位老大帮改下啊

谢谢斑竹啊，OK了