バックアップ バックアップサンプル

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][バックアップ バックアップサンプル]
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





Production Japan Import Application. Since 1998