Klasörlerdeki PDF lerin isimlerinde içerdiği spesifik kelime var ise başka bir klasöre taşınması fonksiyonu nasıl oluşturulur

[Deniz_Excel]

Merhaba arkadaşlar,

A klasöründe,

deneme1.pdf
deneme2.pdf
deneme3.pdf

şeklinde 3 adet PDF dosyamız mevcutdur. Bu klasöre girilip PDF lerden bazıları imzalanmaktadır. İmzalanan PDF ler, örneğin "deneme1" imzalandığını düşünürsek,
aşağıdaki gibi yeni bir isimle farklı kaydedilmektedir. Dolayısıyla A klasöründeki PDF lerin yeni isimleri aşağıdaki gibi olacaktır.

deneme1.pdf
deneme1_İmzalı.pdf
deneme2.pdf
deneme3.pdf

Şimdi bu noktada istediğim şey, pdf klasörü isminin sonuna örnekteki gibi "İmzalı" anahtar kelimesini alarak kaydedildiğinde,
Elimin altında bir buton olduğunu varsayalım. Ben buna bastığımda bu A klasöründeki sonu "İmzalı" olan tüm pdf ler otomatik olarak B isimli klasöre taşınsın.

Bunu nasıl yapabilirim?

 

[Ömer]

Merhaba,

Deneyiniz. Dosya yollarını düzenlersiniz.

Sub dasyakopyala1()
  
   Dim eski As String, yeni As String, dosya As String, d As Object
   
    eski = "C:\A\"
    yeni = "C:\B\"
    dosya = Dir(eski & "*.pdf")
   
    Set d = CreateObject("Scripting.FileSystemObject")

    Do While dosya <> ""
        If dosya Like "*İmzalı*" Then
            d.movefile eski & dosya, yeni & dosya
        End If
        dosya = Dir
    Loop

End Sub