Sign In
Create Account
VIsual Basic! EOF sukz !?!?!
Last Updated: Sep 03 2003 10:21, Started by
Pick_One
, Aug 12 2003 22:53
·
0
0
#1
Posted 12 August 2003 - 22:53
|
Deci am aici un program care cica ar copia un fisier! faza e ca acest proggram dupa ce fac copierea fisierului a in b nu mai are aceeashi marime! adica fisierul a are 640.000 kb iar dupa ce il copiez in b, b va avea 640.001 kb! de ce? Eu presupun ca din cauza lui EOF
Acum va cer shi io un sfat ceva! sau sa-mi facetzi shi mie programul in asha fel incat sa nu mai imi adauge EOF-ul la sfarshit de fisier! dar nu lucratzi cu API sau filecopy() ca astea's simple shi io vreau sa shtiu in genul asta cum se lucreaza! Private Sub Command1_Click() Dim mybyte As Byte Open "f:a" For Binary As #1 Open "f:b" For Binary As #2 Do While Not EOF(1) Get #1, , mybyte Put #2, , mybyte Loop a = MsgBox("s-a terminat copierea", vbOKOnly, "COPY") Close #2 Close #1 End Sub deci care e buba programului? 10x pentru orice raspuns! ciao |
Back to top
#2
Posted 03 September 2003 - 10:21
|
foloseshte functziile Lof shi Loc:
Do While current < Lof(1) Get #1, , mybyte Put #2, , mybyte current = Loc(1) Loop |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.