バックアップ バックアップサンプル
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Sub pbsバックアップ() '******************************************************************************* 'バックアップ '******************************************************************************* Dim a As String, b As String Dim jia As New Cls_BackUp a = fncTxtReadsCSV(fncBackUpRouteTxt) b = GetDriveObjectStr(a) If b = "" Then MyErrMSG Exit Sub End If If DriveUmu(b) = False Then MyErrMSG Exit Sub End If If fncDirectoryExistence(a) = False Then MyErrMSG Exit Sub End If If Right(a, 1) <> "\" Then a = a & "\" End If If Right(a, 2) = ":\" Then MsgBox "バックアップ先の指定に「新しいフォルダ」を作成してください。", vbCritical, "ERROR " Exit Sub End If 'jia.バックアップ開始 "E:\", True jia.バックアップ開始 a, True End Sub |