Aynı klasördeki dosyaları taşıma

[camorane]

Merhaba, kolay gelsin herkese.
Forumda çok araştırmama rağmen istediğim sonuca ulaşamadım. Benim sorum şu;

Bir A klasörü içerisinde B isimli makronun kullanılacağı excel dosyam var. Aynı klasör içinde 2 adet xls formatlarında excel dosyam var. Bu 2 adet dosya fazla da olabilir. İstediğim makrolu kullandığımız ana excelin haricindeki diğer xls dosyalarını D sürücüsü altındaki Yeni isimli klasöre taşımak.

İlgilenen herkese şimdiden teşekkür ederim.

 

[RBozkurt]

Merhaba, deneyiniz.

Sub DosyaTasi()

    Dim kaynakKlasor As String
    Dim hedefKlasor As String
    Dim dosyaAdi As String
    Dim dosyaUzanti As String
    Dim dosyaYolu As String
    
    kaynakKlasor = ActiveWorkbook.Path
    hedefKlasor = "D:\Yeni\"
    
    dosyaAdi = Dir(kaynakKlasor & "\*.xls")
    
    Do While dosyaAdi <> ""
        
        dosyaUzanti = Right(dosyaAdi, 4)
        
        If dosyaUzanti = ".xls" And dosyaAdi <> ActiveWorkbook.Name Then
            
            dosyaYolu = kaynakKlasor & "\" & dosyaAdi
            
            Name dosyaYolu As hedefKlasor & dosyaAdi
            
        End If
        
        dosyaAdi = Dir
        
    Loop
    
    MsgBox "Dosyalar taşındı!", vbInformation
    
End Sub

 

[camorane]

Üstadım elinize sağlık harika çalışıyor. Ben movefile üzerinde çalışıyordum bir türlü becerememiştim. Çok teşekkür ederim.

 

[RBozkurt]

Üstadım elinize sağlık harika çalışıyor. Ben movefile üzerinde çalışıyordum bir türlü becerememiştim. Çok teşekkür ederim.

Estf. hocam kolay gelsin.