Visual Basic - Quiero abrir un .txt con Open "ruta" as Input

Life is soft - evento anual de software empresarial
   
Vista:

Quiero abrir un .txt con Open "ruta" as Input

Publicado por Miguel Humberto miguel.gonzalez.zamora@gmail.com (6 intervenciones) el 09/07/2014 19:57:40
Necesito abrir un archivo de texto, y lo estoy intentando con Open "ruta" as input.
Pero cuando ejecuto el programa me aparece un error que dice "no coinciden los tipos"
En la ruta coloco esta direccion : "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ & NombreCarpeta & " \ " & archivo2 "
hasta la carpeta programa siempre va aser la misma ruta, donde NombreCarpeta es una variable de tipo string y donde guardo el nombre de una carpeta, y archivo2 es una variable de tipo string donde guardo el nombre del archivo de txt que quiero abrir.

que debo hacer para solucionar el problema? o que otro metodo podria usar para abrir el archivo?
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 xve

Quiero abrir un .txt con Open "ruta" as Input

Publicado por xve (178 intervenciones) el 09/07/2014 21:18:02
Hola Miguel, entiendo que la variable que estas utilizando, no es correcta... Nos puedes mostrar la instrucción completa? y la definición de la variable?
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

Quiero abrir un .txt con Open "ruta" as Input

Publicado por Miguel Humberto (6 intervenciones) el 09/07/2014 21:35:16
Option Explicit


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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub Form_Load()
 
 Const Path As String = "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\" ' Ruta siempre terminada en \
 
 
 Dim DirName As String
 Dim NewDirName As String
 Dim n
 Dim j
 Dim caracteres As Integer
 Dim cadena2 As String
 Dim cadena3 As String
 Dim nombre As String
 Dim Fecha As Long
 Dim Guardafecha1 As Long
 Dim Guardafecha2 As Long
 Dim Guardafecha3 As Long
 Dim Estaeslacarpeta As Long
 Dim Fechasistema As Long
 Dim Dia As String
 Dim Mes As String
 Dim Ultima_Cadena As String
 Dim NombreCarpeta As String
 Dim cadenamitad As String
 Dim t As Integer
 Dim Archivo_TXT As String
 Dim ArchivoName As String
 Dim Path1 As String
 
 
 Guardafecha1 = 1
 
 DirName = Dir(Path, vbDirectory)
 
 
'////////////////////////////////////////////////  1RA PARTE   SE BUSCA LA CARPETA MAS RECIENTE PARA ABRIRLA Y BUSCAR EL .TXT//////////////////////
 
Do While (Not DirName = vbNullString)
 
   List1.AddItem (DirName)
 
File1.Path = Path
n = 1
 
cadena2 = Mid(DirName, n, 9)
If cadena2 = "Schedule_" Then
cadenamitad = "Schedule_"
cadena3 = Mid(DirName, 10, 17)
Ultima_Cadena = Mid(DirName, 18, 24)
Fecha = Val(cadena3)
 
 
 End If
 
If Fecha > Guardafecha1 Then
 
Guardafecha1 = Fecha
 
End If
 
 DirName = Dir()
 
 'DoEvents
Loop ' //////////////////////////////////////////////////// FIN PRIMERA PARTE /////////////////////////////////////////////////
 
'//////////////////////////////////////////////////////// 2DA PARTE SE LLEN LOS ARCHIVOS .TXT//////////////////////  ////////////////////////////
 
NombreCarpeta = (cadenamitad & Guardafecha1 & Ultima_Cadena) ' NombreCarpeta va a tener el nombre de la carpeta mas reciente
 
MsgBox (NombreCarpeta & " nombre carpeta reciente")
 
 
Path1 = File1.Path & "\" & NombreCarpeta & "\" '///// file1.path =  C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ y se graga la carpeta mas reciente.
 
 MsgBox (Path1 & "    dentro de carpeta")
 
  File1.Path = Path1
'////////////////////////// SE LEEN LOS ARCHIVOS TXT DE LA CARPETA ////////////////////////
  For j = 0 To File1.ListCount - 1
 
    cadena2 = File1.List(j)  '///////////////busca los archivos .txt
 
Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ & NombreCarpeta & " \ " & cadena2 " For Input As FreeFile
 
 
Close
    Next
 
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
Imágen de perfil de xve

Quiero abrir un .txt con Open "ruta" as Input

Publicado por xve (178 intervenciones) el 10/07/2014 07:42:16
Hola Miguel, entiendo que el problema esta en esta linea verdad?

1
Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ & NombreCarpeta & " \ " & cadena2 " For Input As FreeFile

Creo que el problema lo tienes en el las comillas... prueba así:
1
Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\" & NombreCarpeta & "\" & cadena2 For Input As FreeFile

Coméntanos, ok?
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

Quiero abrir un .txt con Open "ruta" as Input

Publicado por Miguel Humberto (6 intervenciones) el 10/07/2014 08:25:30
Muchas gracias, era eso.

Llevaba como dos dias buscando la solucion. jajaajajajja, ya puedo seguir.
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