Hola, estoy haciendo un programa estilo al quien no admitido, lo que pasa esque cuando se pulse el boton EXAMINAR, quiero que se busque un archivo .CTT (contactos msn), esta opcion ya esta habilitada, lo que yo quiero es que cuando se coja el archivo y se ponga aceptar, me salga la lista de contactos en el List box, que tengo que hacer para que me funcione?
??
Me dieron este codigo, pero no se como tiene que ir, me gustaria que alguien me lo explicara o que me dijeran que hacer para que me funcione esta opcion, el codigo es:
La funcion se llama NombreCOntactos
Private Sub COmmand1_Click()
Dim s As String, sNom As String
Dim i As Integer
Open "nomdelfitxer.ctt" For Input As #1
While Not EOF(1)
Line Input #1, s
sNom = NomContacte(s)
If sNom <> "" Then
List1.AddItem String
End If
Wend
Close #1
End Sub
Private Function Nombrecontactos(s As String) As String
Dim sNom As String
Dim iPos1 As Integer, iPos2 As Integer
iPos1 = InStr(1, s, "<contact>")
If iPos1 > 0 Then
iPos2 = InStr(1, s, "</contact>")
sNom = Mid(s, iPos1 + 9, iPos2 - iPos1 - 9)
Else
sNom = ""
End If
NomContacte = sNom
End Function
ESpero que alguien me sepa ayudar ya que es urgente, muchas gracias.
Autor