Soru Otomatik indirme ve kayıt

[schlecht]

Herkese merhaba, ağda bulunan 100lerce pdf dökümanım var. Bu pdfleri açmadan ekteki şekilde listeden tıklayıp masaüstünde bir klasöre indirmek istiyorum. Listeyi belirleyip köprü yapıorum fakat pdf açılıyor. Ben açılmadan belirli bir klasöre kayıt etmesini istiyorum.

Teşekkürler,

 

[ÖmerBey]

Merhaba,
Kaynak ve hedef klasörleri kendinize göre düzenleyip ilgili sayfanın kod bölümüne kopyalayınız ve A sütunundaki bir hücreye çift tıklayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
    Cancel = True
    kaynak = "C:\Kaynak Klasör\"
    hedef = "C:\Hedef Klasör\"
    Exit Sub
    If Dir(kaynak & Target.Text) = "" Then
        MsgBox kaynak & " konumunda " & Target.Text & " dosyası bulunamadı"
    Else
        FileCopy kaynak & Target.Text, hedef & Target.Text
    End If
End If
End Sub

 

[schlecht]

ÖmerBey merhaba,

kaynak = "C:\Kaynak Klasör\"
hedef = "C:\Hedef Klasör\"

kaynak ne için anlayamadım.
hedef sanırım dosyların kayıt yeri.

 

[ÖmerBey]

Kaynak, kaydetmek istediğiniz dosyaların bulunduğu klasör yolu oluyor.