Hi,
so far, i've found a way to read INI file using this code below;
Public Sub ReadIniFile()
Dim inifile
Dim strReadLine
Dim intReadLine As Integer
'
intReadLine = 0
'---Set connection to open the cartridge.ini file
Set inifile = Filesys.OpenTextFile(App.Path & "\CCsetup.ini", ForReading)
'--------------
Do While inifile.AtEndOfStream <> True 'argument when pointer reaches the eof
strReadLine = inifile.ReadLine 'Reads the .ini file line by line
intReadLine = intReadLine + 1 'count the current line
'Reads the line and opens the picture
If intReadLine = 3 Then
strWalls = Trim$(Mid(strReadLine, 16))
ElseIf intReadLine = 7 Then
' if pointer is in line 6, extracts the dbase path
strCCDbase = Trim$(Mid(strReadLine, 14))
ElseIf intReadLine = 8 Then
' if pointer is in line 6, extracts the dbase path
strRemisDbase = Trim$(Mid(strReadLine, 17))
ElseIf intReadLine = 9 Then
' if pointer is in line 6, extracts the dbase path
strFelisDbase = Trim$(Mid(strReadLine, 17))
End If
Loop 'next line
MDIForm1.Picture = LoadPicture(strWalls)
Set DelLogFile = Filesys.OpenTextFile(App.Path & "\CClog.log", ForAppending, True)
End Sub
Basically it scans the ini file and runs the the path in strCCDbase,strRemisDbase, and strFelisDbase. Now that i got the part of the problem figured out, the only thing i need is where i could edit the path in the str variables i've mentioned using the same idea.
And i only planning on creating an installation-like program in which it copies your files from a source to a given destination path. Want i want to happen is that the program will copy a set of files to a given path by the user. I would the INI file in this case. How do make one without going for the package and deployment wizard/
Thanks
