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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][バックアップ バックアップ先の指定]
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





Production Japan Import Application. Since 1998