Visual Basic - AYUDA CON ALGUNAS FUNCIONES

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA CON ALGUNAS FUNCIONES

Publicado por Angela (97 intervenciones) el 21/10/2003 00:21:26
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder