Копирование файлов (не TXT)

[vi-kar]

Скажите пожалуйста, как скопировать файл и отобразить ProgressBar его копирования. Сам файл я копирую так:

Код: Выделить всё


Dim PathSource as string = "C:\Folder"
Dim FullPathSaveFile as string = "D:\Folder"
Dim Filename as string = "Filename.pdf"
If IO.File.Exists(PathSource + "\" + Filename) Then
    IO.File.Copy(PathSource + "\" + Filename, FullPathSaveFile + "\" + Filename, True)
Else
    MsgBox(PathSource + "\" + Filename + " не существует!", MsgBoxStyle.Critical, "Файл не существует!")
End If


Но возможно кто-нибудь предложит другой вариант копирования с ПрогрессБаром?

Viper: Слово "Копирование" пишут обычно через "о". Название темы стоит писать грамотно.

[Sebas]

public static void CopyFile(string sourceFileName, string destinationFileName, Microsoft.VisualBasic.FileIO.UIOption showUI)
Member of Microsoft.VisualBasic.FileIO.FileSystem

Summary:
Copies a file to a new location.

Parameters:
sourceFileName: String. The file to be copied. Required.
destinationFileName: String. The location to which the file should be copied. Required.
showUI: Microsoft.VisualBasic.FileIO.UIOption. Whether to visually track the operation's progress. Default is UIOption.OnlyErrorDialogs. Required.

[vi-kar]

public static void CopyFile(string sourceFileName, string destinationFileName, Microsoft.VisualBasic.FileIO.UIOption showUI)
Member of Microsoft.VisualBasic.FileIO.FileSystem

Summary:
Copies a file to a new location.

Parameters:
sourceFileName: String. The file to be copied. Required.
destinationFileName: String. The location to which the file should be copied. Required.
showUI: Microsoft.VisualBasic.FileIO.UIOption. Whether to visually track the operation's progress. Default is UIOption.OnlyErrorDialogs. Required.

Sebas, не совсем понимаю как это работает

[Ramzes]

Что тут непонятного?

[vi-kar]

ну просто не понятно, пожалуйста напишите где прописать это в программе! или дайте ссылку на пример. Еще хочу сделать замечание, Прогресс бар находится в строке состояния (внизу).

[Gloom]

Еще хочу сделать замечание, Прогресс бар находится в строке состояния (внизу).

Тогда FileSystem.CopyFile не подойдёт.

Варианты:
а) Самостоятельно читать файл-источник и писать в файл-приёмник, используя Stream.Read/Write.
б) Использовать WinAPI CopyFileEx с CallBack вызовом. Примерчик.

[vi-kar]

Я хочу сейчас попробовать так: читаю один байт из файла и этот байт записываю в другой файл, затем обновляю прогресс бар и этот цикл едит заного до тех пор пока первый файл не закончится. Вот только как узнать, закончился он или нет? Цикл думаю использовать Do...Loop

[Calhoon]

по байту - это бред. Бери буфер больше, в неск. метров, в зависимости от свободной памяти

[vi-kar]

Да, по байту это бред - толька что проверил. Покажите пример как скопировать файл (примерно 50метров) так, чтобы фарма не висла, можно даже без прогрессбара.
Calhoon - пакажи как создать буфер!

[Calhoon]

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

и еще глянь, отвечали мне недавно
http://bbs.vbstreets.ru/viewtopic.php?t=36394

[vi-kar]

спасибо за ссылку, кст я ее видел, но особого внимания не придал. сегодня вечерком попробую!

[vi-kar]

Посмотрел я ту тему, но не понял почему там пустой буфер записывается в файл? Calhoon если ты понял как копировать через буфер, напиши примерчик пожалуйста!

[Nord777]

Код: Выделить всё

     Dim Source$ = "D:\AnyFileName.avi"
    Dim Dest$ = "X:\AnyFileName.avi"
    My.Computer.FileSystem.CopyFile(Source, Dest, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)

[Calhoon]

Nord777
ну автору же надо визуально прогрессбаром показать процесс копирования... Так что чтение/запись кусками

[Nord777]

Calhoon
Эта функция отображает стандартное виндовое окно с прогрессбаром.

[vi-kar]

Calhoon - покажити как кусками копировать, а то в той теме (ссылку на которую ты дал) нет чтения из файла.
Nord777 - спасибо за пример, оставлю его прозапас, потому как прога будет в трее сидеть и такие окна желательно не выводить.

[1Steps]

Скажите пожалуйста, как скопировать файл и отобразить ProgressBar его копирования.

На поставленный вопрос Gloom дал тебе ссылку с рабочим примером.
Вопрос, почему ты им не воспользовался?
Если по незнанию английского, то это пол беды. Но если ты не предринял ни каких телодвижений в сторону изучения этого примера, то это уже беда.
Это пример на который указал Gloom.

Код: Выделить всё

Public Class Form1


    Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, _
                                                  ByVal totalBytesTransferred As Int64, _
                                                  ByVal streamSize As Int64, _
                                                  ByVal streamBytesTransferred As Int64, _
                                                  ByVal dwStreamNumber As Int32, _
                                                  ByVal dwCallbackReason As Int32, _
                                                  ByVal hSourceFile As Int32, _
                                                  ByVal hDestinationFile As Int32, _
                                                  ByVal lpData As Int32) As Int32

    Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, _
                                                                 ByVal lpNewFileName As String, _
                                                                 ByVal lpProgressRoutine As CopyProgressRoutine, _
                                                                 ByVal lpData As Int32, ByVal lpBool As Int32, _
                                                                 ByVal dwCopyFlags As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cpr As New CopyProgressRoutine(AddressOf CopyProgress)
        CopyFileEx("C:\Что копируешь", "C:\Куда копирушь", cpr, 0, 0, 0)
    End Sub

    Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
        ProgressBar1.Value = Convert.ToInt32(TotalBytesTransferred / TotalFileSize * 100)
    End Function

End Class


Советую перейти по ссылке и прочитать как это работает и какие побочные явления могут возникнуть.

[vi-kar]

Ок, завтра изучу пример. Потом скажу что получилось а что...

[vi-kar]

все получилось, всем огромное СПАСИБО за помощь