16/04/07 15:22
xreme
Postato originariamente da P4p3r0g4:
In stringhe?
data4 è string
conteggio è long
Open File For Binary As #1
data4 = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
Close #1
questo è pensato per file lunghi però per file piccoli basta anche
conteggio è integer
For conteggio = 0 To LOF(1) / 4000
Get #1, conteggio *4000 + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
o ancora più piccoli
Get #1, , data4
Wsk4.SendData data4
DoEvents
In stringhe?
data4 è string
conteggio è long
Open File For Binary As #1
data4 = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
Close #1
questo è pensato per file lunghi però per file piccoli basta anche
conteggio è integer
For conteggio = 0 To LOF(1) / 4000
Get #1, conteggio *4000 + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
o ancora più piccoli
Get #1, , data4
Wsk4.SendData data4
DoEvents
ma per i file piccoli il close quando lo fai
aaa