ファイルコピーで更新日時が変わってしまう。

質問

XP pro + Visual Basic 2008 で、ファイルをバックアップするためのソフトを作ろうとしています。

ListViewを二つ用意して、それぞれに対象となるフォルダー内のファイルを表示、チェックリストにチェックしたファイルを、互いのフォルダーにコピーする。のようなものを作っています。

しかしListView1からListView2へコピーを行うと、どういうわけか更新日時が数秒づれてコピーされてしまいます。逆の場合はづれが起こらないようです。

原因＆解決法を教えてください。

コードは以下の通りです。

　　　Dim i As Integer
　　　Dim response As MsgBoxResult

　　　i = 0

　　　response = MsgBox("リスト1の選択ファイルをコピーしますか？",　MsgBoxStyle.YesNoCancel, "確認")

　　　If response = MsgBoxResult.No Then
　　　　　　GoTo CopyRist2
　　　ElseIf response = MsgBoxResult.Cancel Then
　　　　　　Exit Sub
　　　End If

　　　Do Until i >= ListView1.Items.Count
　　　　　　If ListView1.Items(i).Checked = True Then
　　　　　　　　　My.Computer.FileSystem.CopyFile(フォルダ１のパス & "\" & ListView1.Items(i).Text, _
　　　　　　　　　　　　フォルダ２のパス & "\" & ListView1.Items(i).Text, True)
　　　　　　　　　ListView1.Items.RemoveAt(i)
　　　　　　Else
　　　　　　　　　i = i + 1
　　　　　　End If

　　　Loop

CopyRist2:

　　　i = 0
　　　response = MsgBox("リスト2の選択ファイルをコピーしますか？", MsgBoxStyle.YesNoCancel, "確認")

　　　If response = MsgBoxResult.No Then
　　　　　　Exit Sub
　　　ElseIf response = MsgBoxResult.Cancel Then
　　　　　　Exit Sub
　　　End If

　　　Do Until i >= ListView2.Items.Count
　　　　　　If ListView2.Items(i).Checked = True Then
　　　　　　　　　My.Computer.FileSystem.CopyFile(フォルダ２のパス & "\" & ListView2.Items(i).Text, _
　　　　　　　　　　　　フォルダ１のパス & "\" & ListView2.Items(i).Text, True)
　　　　　　　　　ListView2.Items.RemoveAt(i)
　　　　　　Else
　　　　　　　　　i = i + 1
　　　　　　End If

　　　Loop

以上です。　よろしくお願いします。

回答No.1

kmee · ベストアンサー

http://support.microsoft.com/kb/127830/ja
(機械翻訳でところどころ変ですが)
これではないでしょうか