Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: przywieszanie
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004
przywieszanie

zrobilem programik do kopiowania katalogow...
co zrobic zeby nie przywieszal systemu gdy pliki sa znacznych rozmiarow..
tzn.chcialbym cos robic podczas tego kopiowania
(np.ruszac kursorem )

pozdro

21-07-2004 21:02
Pokaż profil deywid  Wy¶lij email do deywid        5625009
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Sub Kopiowanie(¬ródło As String, Cel As String)
Dim plik() As Byte
ReDim plik(0 To 1023) As Byte
Open ¬ródło For Binary As 1
Open Cel For Binary As 2
Do While Not EOF(1)
'MsgBox Seek(1) & " " & LOF(1)
If LOF(1) - Seek(1) < 1023 And LOF(1) - Seek(1) > 0 Then ReDim plik(0 To LOF(1) - Seek(1)) As Byte
DoEvents
Get #1, , plik
Put #2, , plik
'procent = Seek(1) / LOF(1) * 100
Loop
Close 1
Close 2
End Sub

[Post edytowany dnia 21-07-2004 21:57 przez bisiek]


_____________________________________________
www.mob.abc.pl - moja strona o VB

21-07-2004 21:57
Pokaż profil bisiek  Wy¶lij email do bisiek   OdwiedĽ stronę bisiek       3380672
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1