バックアップ バックアップ先の指定

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Public Sub pbsBackUpTxt()
'*******************************************************************************
'バックアップ先の指定
'*******************************************************************************
Dim a As String, b As String

b = fncTxtReadsCSV(fncBackUpRouteTxt)

If MsgBox("現在のバックアップ先は" & vbCr & vbCr & _
b & vbCr & vbCr & "変更しますか?", vbInformation + vbYesNo, "バックアップ先の確認") = vbNo Then Exit Sub

Retry:

a = fncDialogFolder("バックアップ")

If Right(a, 2) = ":\" Then
MsgBox "バックアップ先の指定に「新しいフォルダ」を作成してください。", vbCritical, "ERROR "
GoTo Retry:
End If

If a = "" Then
    MsgBox "バックアップ先の指定をキャンセルしました。", vbCritical, "バックアップ先の指定"
Exit Sub
End If
pbsTxtWrites fncBackUpRouteTxt, a
    MsgBox a & vbCr & vbCr & "に登録しました。", vbInformation, "バックアップ先の指定"
End Sub

 

2000年01月01日|[VBサンプルコード]:[バックアップ]