Hola buenas!
Tengo un problema tonto y no soy capaz de ver el error, ¿Puede alguien echarme una mano?
Tengo una rutina donde me abre archivos hasta ahora le daba el nombre del archivo y no tenia problemas pero he cambiado la forma para poder abrir un archivo con un nombre solo conocido al ejecutarse el programa y me sale este error "error 75" y no le veo el fallo. aqui esta el codigo por pasos .:
Código vb:
Ver originalPrivate Sub Form_Load()
Dim Fichero As String
Fichero = InputBox("Número de pedido") & ".dat"
End Sub
' --------------------------------------------------------------------------
' \\ -- Subrutina para abrir el archivo Horas.dat.
' --------------------------------------------------------------------------
Private Sub AbrirArchivo()
Numero = FreeFile
Open Fichero For Random As Numero Len = 94
RegActual = 1
' Almacenamos la posición del último registro
RegUltimo = LOF(Numero) / 94
If RegUltimo = 0 Then
RegUltimo = RegActual
End If
End Sub
Podria alguien decidme domde estoy cometiendo el error. Se que es algo tonto pero soy incapaz de verlo por muchas vueltas que le doy.
Un saludo