Visual Basic - Como hago para que cuando seleccione un archivo con OpenFileDialog aparezca la dirección en TextBox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 78 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como hago para que cuando seleccione un archivo con OpenFileDialog aparezca la dirección en TextBox

Publicado por Maicol (1 intervención) el 16/12/2018 21:24:46
Hola quisiera saber como hacer para que cuando seleccione un archivo con OpenFileDialog aparezca en un TextBox Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.886
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como hago para que cuando seleccione un archivo con OpenFileDialog aparezca la dirección en TextBox

Publicado por Andres Leonardo (1594 intervenciones) el 17/12/2018 15:10:49
Hola

Consulto ... el archivo es un txt, la pregunta es quieres que aparezca el texto en un textbox???

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Abrir()
 
    CommonDialog1.Filter = "Todos los Archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt|"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen
    Filename = CommonDialog1.Filename ' designa el nombre del archivo
        If Err.Number = 32755 Then Exit Sub 'SI CANCELA
        OpenFile (Filename)
 
End Sub
 
 
Sub OpenFile(Filename As String)
 
Dim F As Integer
Dim file_Texto As String
Dim Arch_Texto As String
 
If Filename = "" Or Filename = " " Then
    MsgBox "Error Archivo no valido", vbInformation, APNotepad
End If
'Exit Sub
 
If "APNotepad " + Filename = frm_agnotepad.Caption Then
    Exit Sub
Else
 On Error GoTo etq_Error
    F = FreeFile
    Open Filename For Input As F
    archivo_texto = Input(LOF(F), F)
    frm_agnotepad!txt_body.Text = archivo_texto
    nombre = Filename
    Close F
    frm_agnotepad.Caption = "AP Notepad " + Filename
    nombre = Filename
End If
dato = Filename
Exit Sub
 
etq_Error:
MsgBox "Ha ocurrido un error al intentar abrir el archivo.", 48, "APNotepad"
 
 
End Sub

Saludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JAIME.I.Q.
Val: 11
Ha aumentado su posición en 173 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como hago para que cuando seleccione un archivo con OpenFileDialog aparezca la dirección en TextBox

Publicado por JAIME.I.Q. (6 intervenciones) el 21/12/2018 18:46:41
Hola, interpretando tu consulta te dejo el siguiente código, espero te sea útil.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Demo()
    Dim lngCount As Long
    Dim cl As Range
 
    Set cl = ActiveCell
 
 
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
 
        For lngCount = 1 To .SelectedItems.Count
 
            cl.Worksheet.Hyperlinks.Add _
                Anchor:=cl, Address:=.SelectedItems(lngCount), _
                TextToDisplay:=.SelectedItems(lngCount)
 
            cl.Offset(0, 1).FormulaR1C1 = _
                 "=TRIM(RIGHT(SUBSTITUTE(RC[-1],""\"",REPT("" "",99)),99))"
            Set cl = cl.Offset(1, 0)
        Next lngCount
 
    MsgBox ("Su dirección es" & ActiveCell)
 
    End With
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar