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.