Resolving The Problem

Below is the SQABasic code example, which uses GetPrivateProfileString API function.

GetPrivateProfileString reads a string value from an RSP file. The parameters passed to the function specify which values will be read. The function returns the length of the value that was stored as the string variable, lpReturnedString. If the function was successful, the string read from the RSP file will be put into lpReturnedString. If not, it will instead receive the string given as lpDefault.

lpApplicationName:
The header of the section in the RSP file that the value is in - [General]

lpKeyName:
The name of the value to read - " TestDatastorePath "

lpDefault:
The value to return if a valid value cannot be read. Make the value something that would definitely not be read, such as "Error".

lpReturnedString:
A fixed-length string that will receive either the string read from the file or lpDefault.

nSize:
The length in characters of lpReturnedString.

lpFileName:
The filename of the RSP file to read from.

Example:

' Read the " TestDatastorePath " value under the [General] section of
' the RSP file "\\CompName\TestProjectDir\UserProject.rsp". The default value is "Error".

_______________________________________________________________________

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As Any, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Sub Main

Dim tdspath As String ' receives the value read from the RSP file
Dim slength As Long ' receives length of the returned string

tdspath = Space(255) ' provide enough room for the function to put the value into the buffer
' Read from the RSP file
slength = GetPrivateProfileString("General", "TestDatastorePath","Error", tdspath, 255, "\\CompName\TestProjectDir\UserProject.rsp")
tdspath = left(tdspath, slength) ' extract the returned string from the buffer

msgbox slength & chr(13) & tdspath

End Sub