FileCopy(CopyFile)でプログレスバーを表示するには VB2005
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) 'ＭＳより→指定したファイルに最後にアクセスした日付と時刻を設定します。
System.IO.File.SetLastWriteTime(path1, Now) 'ＭＳより→指定したファイルに最後に書き込んだ日付と時刻を設定します。
System.IO.File.SetCreationTime(path1, Now) 'ＭＳより→ファイルが作成された日付と時刻を設定します。
Catch eo As System.OperationCanceledException
MessageBox.Show(eo.Message.ToString)
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Sub
|
|