RE:SetFilePointer
Publicado por
Pablo Ramirez (1 intervención) el 10/07/2008 21:50:30
Oye, disculpa pero no entiendo lo que escribes, mira, yo lo que pretendo hacer es algo como lo siguiente.
Private Sub cmdReemplazoSeek_Click()
Dim intCont As Double
Dim LonPlanoOriginal As Integer
Dim strCadena As String
Dim Posicion As Currency
Dim Valor As Currency
Dim FechIni As Date
Dim FechFin As Date
Posicion = 1
LonPlanoOriginal = FreeFile
Open Me.Text1.Text For Input As #LonPlanoOriginal
FechIni = Now
Do While Not EOF(LonPlanoOriginal)
Line Input #LonPlanoOriginal, strCadena
SetFilePointer LonPlanoOriginal, Posicion, ByVal 0&, 1
Posicion = Posicion + Len(strCadena)
Loop
Close #LonPlanoOriginal
FechFin = Now
MsgBox "Termino el proceso con : " & Format(Posicion, "#,#00.00") & " Bytes, en " & DateDiff("s", FechIni, FechFin) & " Segundos"
End Sub
La formar en la que declaro la función es la siguiente
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Currency
Siempre la aplicación saca el error de Overflow en la siguiente linea.
SetFilePointer LonPlanoOriginal, Posicion, ByVal 0&, 1
Muchas Gracias ......