Originally posted by Krumpy
View Post
Sent from my XT1585 using Tapatalk
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Public Function GetIniSections(ByVal _iniFile As String) As String() Dim r As Integer = 0 Dim buffer As String buffer = Space(2500) r = GetPrivateProfileSections(0, 0, 0, buffer, buffer.Length, _iniFile) GetIniSections = Split(buffer, vbNullChar) End Function
Comment