If File.Exists(sFileRireki) = True Then 'あり If Directory.Exists(psInit.sUpLoadD + "\") = False Then sErrMsg = "アップロード先フォルダが無いか、ネットワーク接続できませんでした。(COPY直前チェック)" + vbCrLf + psInit.sUpLoadD Return False End If IO.File.Copy(sFileRireki, sFileTRireki,True) '送信後、削除 If File.Exists(sFileRireki) = True Then File.Delete(sFileRireki) Else Return False End If Else Return False End If Catch ex As Exception sErrMsg = "アップロード(履歴データ送信)に失敗しました。" + vbCrLf + vbCrLf + ex.Message Return False Finally Call sub_WriteLog(sErrMsg, "", pciLogModeE, "fnc_LogDataSend") End Try
========== If いずれかのパスが Nothing Then ★1★ [&H80004003] ArgumentNullException ElseIf いずれかのパスが空文字列 Then ★2★ [&H80070057] ArgumentException End If sourceFullPath = sourceFileNameをフルパス変換 destFullPath = destFileNameをフルパス変換 Dim errorCode As Integer = CopyFile(sourceFileName, destFileName, Not overwrite) '※API呼び出し If errorCode <> 0 Then If sourceFullPath なファイルが存在しない Then ★3★ [&H80001000] FileNotFoundException 'sourceFileName ElseIf destFullPath なファイルが存在している Then 'overwrite := False の状態で呼ばれた時限定 ★4★ [&H80131620] IOException Else 'ここからは destFileName 系のエラー If errorCode <= &H80001001 Then Select Case errorCode Case ERROR_ACCESS_DENIED '&H80000004 ★5★ [&H80070005] UnauthorizedAccessException Case &H80000008 ★6★ [&H80131515] NotSupportedException Case ERROR_FILE_NOT_FOUND '&H80001000 ★7★ [&H80070002] FileNotFoundException 'FileNotFound_FileName := destFileName Case &H80001001 ★8★ [&H80070003] DirectoryNotFoundException 'PathNotFound_Path := destFileName End Select Else Select Case errorCode Case &H80001006 ★9★ [&H80131620] IOException Case &H80001007 Exit Select Case &H80001008 ★10★ [&H80131620] IOException 'IO_SharingViolation_File := destFileName Case &H80003000 ★11★ [&H80070057] ArgumentException Case 206 ★12★ [&H800700CE] PathTooLongException End Select End If ★13★ [&H80131620] IOException End If End If Return '☆ここまでこれたら正常終了☆