266
26 de Diciembre del 2003

esta parte ni siquiera me funciona asi, me gustaria que me expliquen mi error aqui y como hacerlo on app.path


Private Sub Command1_Click()
If List1.ListIndex = 1 Then
RichTextBox1.LoadFile (d:Lasprimerasmujeres, 0)
End If
End Sub

Gracias.

sdemingo
26 de Diciembre del 2003

la ruta del fichero que quieres cargar tiene que ir entre comillas
RichTextBox1.LoadFile ("d:Lasprimerasmujeres", 0)

al App.Path, devuelve la ruta donde se está ejecutando el proyecto. Si yuvieras ahí el arhivo tendrías q hacer algo así.


Dim ruta As String
Dim strbarra As String

strbarra = Right(App.Path, 1)

If strbarra = "" Then
ruta = App.Path + "LasPrimerasMujeres"
Else
ruta = App.Path + "LasPrimerasMujeres"
End If

RichTextBox1.LoadFile (ruta, 0)

Feliz Navidad
sdemingo