On 2011/09/14 08:53, Maciej Franciszkowski wrote:
Public Function Read(ByVal Section As String, ByVal Key As
String, Optional ByVal strDefault As String = "") As String
Dim v As Integer, strTemp As String = ""
strTemp = strTemp.PadLeft(255, Chr(0))
v = GetPrivateProfileString(Section, Key, strDefault,
strTemp, 255, ConfigObject)
If v> 0 Then Read = Left(strTemp, v)
End Function
If v is <= 0, then return value of Read is not set!
--
Regards,
Mike Fry
Johannesburg
--
You received this message because you are subscribed to the Google
Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML
Web Services,.NET Remoting" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
or visit the group website at http://megasolutions.net
