Soru Dir parametre-makro

[k0081]

Merhaba arkadaşlar;

aşağıdaki kodda dir parametresi ile bir kopyalama yapmak istiyorum

dosyayoluveismi değişkeni - klasörü içindeki dosyaları 6 ay olarak ayırmak istiyorum.

fakat bu şekilde yaptığımda

If ay >= "06" Then
filtreTarih = "*_*_" & yil & Chr(42) ---- 6. ve 12. aya kadar olanlar...
End If

If ay <= "05" Then
filtreTarih = "*_*_" & yil & Chr(42) 5. ve 1. aya kadar olanlar...
End If

sKomut1 = "copy " & dosyayoluveismi & filtreTarih & " " & buraya

Shell "cmd /k " & sKomut1, vbNormalFocus


maalesef olmuyor. bunu nasıl düzenleyebiliriz ?


yani amacım :

*_18_06_2022_*
*_10_07_2022_*
*_04_02_2022_*
*_15_12_2022_*
*_18_05_2022_*

gibi uzun isim verilmiş dosyalarım mevcut . bizi ilgilendiren - filtreleme yapmak istediğim kısım bold ile belirttiğim kısım.

bunları masaüstünde bir klasöre kopyalamak...


yardımcı arkadaşaıma şimdiden teşekkürler.