Возникла необходимость переноса архива из папки Data на подключаемый сетевой диск Z:\. Корректирую предыдущий скрипт:
поменял строку
на
но ничего не происходит и ошибку не выдает. Что не так?
И возможно ли потом настроить репликацию по расписанию этой БД с сервером?
Код:
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim dba As NotesDatabase
Set db=ses.CurrentDatabase
Set dba=New NotesDatabase("ARC/DOM/ORG", "archives\a_"+db.FileName)
If dba.Title="" Then
Messagebox "БД не найдена"
exit sub
end if
FileSize=dba.Size/1024/1024
Messagebox "Ваш архив - " & Cstr(FileSize)& " MB",64,"Проверьте есть ли на диске С:\ необходимое пространство"
Call dba.CreateReplica("",dba.FilePath)
Dim fso As Variant
Dim text, fsp As String
Set fso = CreateObject("Scripting.FileSystemObject")
text = ""
Forall d In fso.Drives
If d.DriveType = 2 Then
If d.IsReady Then
fsp = Round(d.AvailableSpace / 1024 / 1024 / 1024, 2)
text = text & "На диске " & d.DriveLetter & ": - свободного пространства " & fsp & " Гб." & Chr(10)
End If
End If
End Forall
If text <> "" Then
Msgbox text
End If
Код:
Call dba.CreateReplica("",dba.FilePath)
Код:
Call dba.CreateReplica("","Z:\"&dba.FilePath)И возможно ли потом настроить репликацию по расписанию этой БД с сервером?
