"Permiso denegado"

[ema21del9]

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.

[seba123neo]

Hola, primero no se para que usas FSO solo para sacar una linea y despues usas la misma sentencia Open del visual basic , o usas una o la otra...el FSO ya tiene para recorrer las lineas del mismo tambien...trata de usar una sola...directamente abrilo una sola vez y no 2 veces...saca los datos.. y despues cerralo y fijate si anda...

PD:indenta el codigo

saludos.