Leer ini

Dim Est As String
Est = StrDup(50, " ")

o también

Dim Est As String = StrDup(50, " ")

Saludos.
Alex

"José Mª Toro Bermejo" escribió en el mensaje
news:

Hola a todos.
Tengo un pequeño problema al utilizar la api de windows para leer archivos
ini.

en vb6 utilizaba lo siguiente:
Dim I As Integer
Dim Est As String
Est = String$(50, " ")
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est),
"Ejemplo.ini")
If I > 0 Then
MsgBox "Tu Nombre es: " & Est
End If

pero en vb net tengo el proble de que no se el equivalente de
Est=String$(50," ")
¿alguien sabría responderme a esto?
gracias

Saludos,

Puedes intentar con esto:

' Declaracion del API
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" ( _
ByVal lpAppName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer


' Codigo para recuperar el valor
Dim n As Integer
Dim oValor As New StringBuilder(50)

n = GetPrivateProfileString("Ejemplo", "Nombre", "", oValor, 50,
"Ejemplo.ini")
If n > 0 Then
MessageBox.Show("Tu Nombre es: " & oValor.ToString())
End If


Ojo que aca se utiliza la clase StringBuilder, por lo que deberias agregar
un Imports System.Text al inicio del archivo donde incluyes el codigo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:

Hola a todos.
Tengo un pequeño problema al utilizar la api de windows para leer archivos
ini.

en vb6 utilizaba lo siguiente:
Dim I As Integer
Dim Est As String
Est = String$(50, " ")
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est),
"Ejemplo.ini")
If I > 0 Then
MsgBox "Tu Nombre es: " & Est
End If

pero en vb net tengo el proble de que no se el equivalente de
Est=String$(50," ")
¿alguien sabría responderme a esto?
gracias