FileCopy(CopyFile)でプログレスバーを表示するには VB2005


VB Tips And Sample(HOME)(VB.NET Sample インデックス)

VB6時代ではファイルコピーの進行状況をプログレスバー表示させることが出来ませんでしたが
VB2005になると出来るようになりました。


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim path0 As String = My.Application.Info.DirectoryPath & "\SQLServer2005SP2-KB921896-x86-JPN1.exe"
        Dim path1 As String = My.Application.Info.DirectoryPath & "\SQLServer2005SP2-KB921896-x86-JPN1.exe"

        Try
            'VB6時代では、ファイルコピー中のダイアログは表示できませんでしたが
            'VB2005では、キャンセルボタン付きのダイアログボックスでプログレスバーまで表示できます。
            'また、この設定だと、上書きするか否かをコピー前に選択すダイアログも表示されます。
            My.Computer.FileSystem.CopyFile(path0, path1, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)

            'フアィルのプロパティーもイジレル。
            System.IO.File.SetLastAccessTime(path1, Now) 'MSより→指定したファイルに最後にアクセスした日付と時刻を設定します。 
            System.IO.File.SetLastWriteTime(path1, Now) 'MSより→指定したファイルに最後に書き込んだ日付と時刻を設定します。
            System.IO.File.SetCreationTime(path1, Now) 'MSより→ファイルが作成された日付と時刻を設定します。 

        Catch eo As System.OperationCanceledException
            MessageBox.Show(eo.Message.ToString)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try

    End Sub





VB Tips And Sample(HOME)(VB.NET Sample インデックス)