Public Function GetProfileSection( _
ByRef rSection() As Variant _
, Optional ByVal vSectionName As Variant _
) As Boolean Assuming
Dim estWAPI As New WindowsAPI
estWAPI.ProfileSectionName = "Sample Section"
estWAPI.WriteProfileString("Convert From", "5 kilometers") = True
estWAPI.WriteProfileString("Convert To", "miles") = True
Dim avarSettings() As Variant
for example
estWAPI.GetProfileSection(avarSettings()) = True
leaves
LBound(avarSettings) = 0
UBound(avarSettings) = 2
? avarSettings(1)
Convert From="5 kilometers"
? avarSettings(2)
Convert To="miles"See also: ProfileSectionToVariantVector Function
GetProfileSectionSample Subroutine
GetProfileInt Function
GetProfileString Function
GetPrivateProfileSection Function
ProfileSectionName Property
GetProfileSection Function (Windows API)rSection: Dynamic array of Variants that will receive the Settings. This array will be reinitialized with a lower-bound of 0 (zero) and an upper-bound of the number of Settings read. The settings will be copied into elements 1..N of the array. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.