Cuando corro 2 veces una funcion que hice para crear una matriz desde los datos de un archivo, me sale ese error en la linea
Código:
Set ts = fs.OpenTextFile(archivo_categorias, ForAppending)
del siguiente codigo:
Código:
Sub combo()
archivo_categorias = "C:\prueba\fichero.txt"
Set fs = New FileSystemObject
Set ts = fs.OpenTextFile(archivo_categorias, ForAppending)
lineas_categorias = ts.Line
ts.Close
Set fs = Nothing
Set ts = Nothing
columnas_categorias = 2
ReDim arreglo_categorias(1 To lineas_categorias)
ReDim matriz_categorias(1 To lineas_categorias, 0 To columnas_categorias)
Open archivo_categorias For Input As #1
Do While Not EOF(1)
n = n + 1
Line Input #1, arreglo_categorias(n)
arreglo_temp = Split(arreglo_categorias(n), ",")
For m = LBound(arreglo_temp) To UBound(arreglo_temp)
matriz_categorias(n, m) = arreglo_temp(m)
Next
Loop
Close #1
Combo1.AddItem ("ninguna")
Combo3.AddItem ("ninguna")
For x = 1 To lineas_categorias
If matriz_categorias(x, 1) = "ninguna" Then
Combo1.AddItem (matriz_categorias(x, 2))
Combo3.AddItem (matriz_categorias(x, 2))
Combo2.AddItem (matriz_categorias(x, 2))
For y = 1 To lineas_categorias
If matriz_categorias(x, 2) = matriz_categorias(y, 1) Then
Combo2.AddItem (" - " & matriz_categorias(y, 2))
End If
Next
End If
Next
End Sub
Aunque use el codigo en otro formulario si ya lo ejecute me da el mismo error, como si el archivo todavia estaria siendo usado porque me dice permiso denegado al tratar de abrir el archivo, pero fijense que lo cierro correctamente, alguna sugerencia? es muy importante que solucione este inconveniente.
Solucionado, gracias a los que leyeron por tomarse el tiempo.