ファイルコピーでエラー処理を行うには？ (ID:111929)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そういう意味であれば・・・ FileInfo で、仮想ドライブでのファイルのフルパスを 渡して、ファイル情報を取得して自分で判断した方が いいとは思います。 Dim fiSrc As FileInfo Dim fiDst As FileInfo Dim szSrcPath As String Dim szDstPath As String Dim bRet As Boolean szSrcPath = "xxxxx" ' ローカル側 szDstPath = "yyyyy" ' サーバー側 bRet = False fiSrc = New FileInfo(szSrcPath) fiDst = New FileInfo(szDstPath) If fiSrc.Exists Then If fiDst.Exists Then If fiSrc.LastAccessTime > fiDst.LastAccessTime Then ' ローカル側が最新の場合 bRet = True End If Else ' サーバー側にファイルが無い場合 bRet = True End If End If If bRet Then ' コピーを行う Try fiSrc.CopyTo(szDstPath, True) Catch ex As Exception Debug.WriteLine("コピー失敗(" + ex.Message + ")") End Try End If こんなんでどうでしょうか・・・ パスの設定はして下さい。 尚、先の長時間アクセスしない場合の処置は、 お考え下さい。 以上。