Hola!
Tengo un problemilla y no veo donde tengo el error, he realizado una funcion para borrar el primer registro de un archivo que siempre esta vacio(el registro), el problema es que en vez de borrarme el 1er registro, me genera los mismos registros que tenia menos uno, pero todos vacios como el primero, el que queria eliminar. Podia alguien echarme una manita y decirme donde he cometido el error.
Muchas gracias
Código vb:
Ver original' --------------------------------------------------------------------------
' \\ -- Subrutina para eliminar el 1er registro si esta en blanco.
' --------------------------------------------------------------------------
Private Sub EliminarRegistro()
' Verificamos que el archivo temporal no exista, si existe se elimina
If Dir("Temporal.dat") = "Temporal.dat" Then
Kill "Temporal.dat"
End If
FileTemp = FreeFile
'Abrimos y creamos un nuevo fichero temporal
Open "Temporal.dat" For Random As FileTemp Len = Len(HorasTemp)
RegActual = RegActual + 1
RegActualTemp = 1
'Se recorren los registros del archivo
For Pos = 1 To RegUltimo - 1
Get #Numero, RegActual, Horas
MsgBox "RegActual = " & RegActual
With HorasTemp
'Variables datos de las Horas.
.inicio1 = inicio1_C
.fin1 = fin1_C
.inicio2 = inicio2_C
.fin2 = fin2_C
.inicio3 = inicio3_C
.fin3 = fin3_C
.tiempo = tiempo_C
.dia = dia_C
.fecha = fecha_C
.semana = semana_C
.mes = mes_C
.año = año_C
.npedido = npedido_C
.Totalhoras = Totalhoras_C
End With
'Escribe en el archivo temporal los datos
MsgBox "RegActualTemp = " & RegActualTemp
Put #FileTemp, RegActualTemp, HorasTemp
RegActual = RegActual + 1
RegActualTemp = RegActualTemp + 1
Next
Close Numero
Close FileTemp
'Elimina el archjivo con los datos
Kill "Horas.dat"
'Renombra el archivo temporal a Datos.dat
Name "Temporal.dat" As "Horas.dat"
End Sub