Конференция VBStreets

**PILIGRIM** » 21.11.2005 (Пн) 5:59

Подскажите пожалуйста как в Visual Basic можно организовать копирование бинарного файла. Это должно выглядеть примерно так:
Открываем один файл для чтения, второй для записи и через цикл перемещаем информацию из одного файла в другой.
Заранее спасибо.

**alibek** » 21.11.2005 (Пн) 8:57

Именно так, как ты написал, открываешь один файл для чтения, другой для записи и перемещаешь информацию из одного файла в другой.
Если, конечно, FileCopy не нравится.

**vvs_adm** » 21.11.2005 (Пн) 9:04

Код: Выделить всё: Dim sTemp As String Open "FirstFile" For Binary Access Read As #1 sTemp = String$(LOF(1), vbNullChar) Get #1, , sTemp Close #1 Open "SecondFile" For Binary Access Write As #1 Put #1, , sTemp Close #1

Только цикл очень короткий получился

**alibek** » 21.11.2005 (Пн) 9:13

Вопрос такой... А если файл будет иметь размер три гигобайта?

**vvs_adm** » 21.11.2005 (Пн) 9:21

Даже не сомневался, что спросят

Тогда у него выскочит ошибка и он задаст новый вопрос - что за ошибка номер такой-то

Тогда так

Код: Выделить всё: Dim sTemp As String Open "FirstFile" For Binary Access Read As #1 If Size(#1) > 2Гб Then msgbox "Куда тебе такой большой ... файл" : end sTemp = String$(LOF(1), vbNullChar) Get #1, , sTemp Close #1 Open "SecondFile" For Binary Access Write As #1 Put #1, , sTemp Close #1

**ANDLL** » 21.11.2005 (Пн) 10:15

2vvs_adm: Тогда встречный вопрос: а если файл будет размером 1Гб + 999 Мб?
Может проще все-таки не засорять оперативку и копировать его по частям?

**Andrey Fedorov** » 21.11.2005 (Пн) 10:58

ANDLL писал(а):2vvs_adm: Тогда встречный вопрос: а если файл будет размером 1Гб + 999 Мб?
Может проще все-таки не засорять оперативку и копировать его по частям?

А не проще все-ж использовать стандартную функцию копирования?
Ну а если хочется чтобы ProgressBar рисовался и листочки летали - на то SHFileOperation есть...

**PILIGRIM** » 21.11.2005 (Пн) 21:03

Все в принципе сделал, таким образом:

Код: Выделить всё: Dim a As Byte Private Sub Command1_Click() Open "c:\1.exe" For Binary As #1 Open "c:\2.exe" For Binary As #2 Do While Not EOF(1) i = i + 1 If i > FileLen("C:\1.exe") Then GoTo 1 Get #1, i, a Put #2, i, a Loop 1 Close #1 Close #2 End Sub

**alibek** » 22.11.2005 (Вт) 8:37

PILIGRIM писал(а):Все в принципе сделал, таким образом:

Ждем темы "Хелп! Почему так медленно копируется???".

**Andrey Fedorov** » 22.11.2005 (Вт) 10:21

alibek писал(а):
PILIGRIM писал(а):Все в принципе сделал, таким образом:

Ждем темы "Хелп! Почему так медленно копируется???".

А ты как догадался :lol:

**PILIGRIM** » 22.11.2005 (Вт) 16:33

Мне просто нужен бал простенький пример чтобы он действовал именно таким способом.

Конференция VBStreets

Копирование бинарного файла

Копирование бинарного файла

Кто сейчас на конференции