usb diske yedekleme

[ridvan2111]

Selamlar
forumdan buldugum bir makro ile usbdiske yedekleme yapıyorum.

Sayın Korhan Ayhan arkadaşın eklediği örnek dosyadaki kontrol makrosu sayfadaki a1 hücresini kontrol ediyor bu kodlar usbdisk F: sürücüsünü kontrol edebilirmi eğer usbdisk takılı değilse MsgBox "USBDİSK TAKILI DEĞİL LÜTFEN DİSKİ TAKINIZ!!", vbCritical, "UYARI" gibi bir uyarı versin

Option Explicit

Dim SAY As Boolean
Sub KONTROL()
If Range("A1") = Empty Then
MsgBox "LÜTFEN VERİ GİRİNİZ !", vbCritical
Else
SAY = True
Range("B1") = "VERİ GİRİLMİŞ !"
End If
End Sub

Sub DENEME()
Call KONTROL
If SAY = True Then UserForm1.Show
End Sub

Aşağıdaki kod yedekleme yaptıgım kod

Sub Dosya_Kopyala()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\archiv\*.*", "F:\yedekler"
End Sub

 

[Korhan Ayhan]

Selamlar,

Sorunuzun eklemiş olduğunuz başlıkla bir alakasını göremedim. Bu sebeple ayrı başlık açtım. Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DOSYA_KOPYALA()
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Dir("F:\Yedekler", vbDirectory) = "" Then
        MsgBox "USB DİSK TAKILI DEĞİL YADA ""Yedekler"" İSİMLİ KLASÖR OLUŞTURULMAMIŞ !" & vbCrLf & "LÜTFEN KONTROL EDİNİZ !", vbCritical, "UYARI !"
    Else
        FSO.CopyFile "D:\archiv\*.*", "F:\Yedekler"
    End If
End Sub

 

[ridvan2111]

Sn. Korhan Ayhan Teşekkür ederim