在文件所在路径生成ini文件时，路径总出错！

Question

我想在文件的所在文件夹下生成一个.ini文件，可是路径总是出问题，我的代码如下，请各位高手帮帮忙！Private Declare Function GetPrivateProfileString Lib "kernel32" _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String, _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
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 sSave As String
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_load()
    sSave = String(255, 0)
    GetCurrentDirectory 255, sSave
    a = Trim$(sSave) & "\dd.ini"
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, a)
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, a)
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, a)
End Sub

Answer 1

Private Declare Function GetPrivateProfileString Lib "kernel32" _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String, _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
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 sSave As String
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_load()
    sSave = String(255, 0)
    Dim i As Long
    i = GetCurrentDirectory(255, sSave)
    If i <> 0 Then
        sSave = Left(sSave, i)
        a = Trim$(sSave) & "\dd.ini"
    End If
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, a)
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, a)
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, a)
End Sub

Answer 2

多谢楼上的 rainstormmaster(rainstormmaster