otomatik yedek sorunu

[cckastan]

merhaba arkadaşlar. otomatik yedek kodum, çalıştığımız pc lerden birisinde çalışmıyor. ağda duruyor dosya cloud da. bir pc de sorunsuz otomatik yedek alıyor ama diğer pc de resimde ki satırda sıkıntı var diyor. yardım ederseniz sevinirim.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
If MsgBox("Yedek alınacak onaylıyor musunuz ?", vbCritical + vbYesNo, "Cafer Can") = vbYes Then
Dim Yedek As String
Trh = Replace(Now, ":", "_")
Kyt = "\\192.168.1.18\betul\KENTSELTAKİPYEDEK\"
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xls" ---(BU SATIR)
MsgBox "Yedek alma işlemi tamamlanmıştır.", vbInformation, "Cafer Can"
Else
MsgBox "Yedek alma işlemi iptal edilmiştir.", vbInformation, "Cafer Can"
End If
End Sub

 

[esalci]

VB Editör de Araçlar >> Referanslar sekmesinde bir liste olacak. Microsoft Scripting Runtime (scrrun.dll) seçili mi? Seçili değilse seçip exceli yeniden başlatıp denermisin?

 

[cckastan]

teşekkür hocam, malesef olmadı anlattığınız şekilde.