1,486
社区成员
发帖
与我相关
我的任务
分享
Function Geti(key As String, Optional FileName As String = "", Optional dd As String = "0") As String
On Error Resume Next
Dim fini As String
fini = FileName
If IsMissing(FileName) Then FileName = App.EXEName
If fini = "" Then fini = App.EXEName
If right(fini, 4) <> ".ini" Then fini = fini & ".ini"
If InStr(fini, ":") = 0 Then fini = appDir & fini
Geti = GetINI(App.EXEName, key, dd, fini)
End Function
Function Seti(key As String, Val As String, Optional FileName As String = "")
Dim fini As String
If IsMissing(FileName) Then FileName = App.EXEName
If FileName = "" Then FileName = App.EXEName
fini = FileName
If right(fini, 4) <> ".ini" Then fini = fini & ".ini"
If InStr(fini, ":") = 0 Then fini = appDir & fini
SaveINI App.EXEName, key, Val, fini
End Function
Private Sub Command1_Click()
Dim StrPath$
StrPath = App.Path & "\configDB.ini"
Call WritePrivateProfileString("section1", "key1", ByVal 0 , StrPath)
End Sub