ALGUIEN ME PUEDE EXPLICAR ALGUNAS FUNCIONES PORFA
Publicado por Angela (97 intervenciones) el 21/10/2003 00:13:17
Hola
Se poco de vb y tengo unas formas con unas lineas que no entiendo muy bien.Me puede decir porfavor que hace esta linea
Open "pictemp" For Binary Access Write As DataFile
y esta otra linea
Chunk() = campoBinary.GetChunk(lngCompensación, conChunkSize)
y esto otro
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Y ESTO ULTIMO
Open "pictemp" For Binary Access Read As DataFile
Fl = LOF(DataFile)
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
Next i
Close DataFile
' On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
err = 0
GRACIAS
Se poco de vb y tengo unas formas con unas lineas que no entiendo muy bien.Me puede decir porfavor que hace esta linea
Open "pictemp" For Binary Access Write As DataFile
y esta otra linea
Chunk() = campoBinary.GetChunk(lngCompensación, conChunkSize)
y esto otro
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Y ESTO ULTIMO
Open "pictemp" For Binary Access Read As DataFile
Fl = LOF(DataFile)
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
Next i
Close DataFile
' On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
err = 0
GRACIAS
Valora esta pregunta


0