Excel ile dosyaları belirtilen dizine gönderme...

Katılım
9 Şubat 2021
Mesajlar
4
Excel Vers. ve Dili
Microsoft Office 2019, Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2022
Arkadaşlar merhaba, bir klasördeki bütün dosyaları (Resim 1) Excel'de belirteceğimiz dizine (Resim 2) gönderebiliyor muyuz? Her bir dosya farklı bir dizine gönderilecek. Resim 1.JPG Resim 2.JPG
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Dizinleri nasıl belirliyorsunuz. Aşağıdaki kodlar eski tanımındaki klasördeki resimleri yeni tanımındaki klasöre taşır.
Kod:
Sub dasya_tasi()
 
    Dim eski As String, yeni As String, dosya As String, d As Object
    
    eski = "C:\resim1\"
    yeni = "C:\resim2\"

    dosya = Dir(eski & "*")
    Set d = CreateObject("Scripting.FileSystemObject")

    Do While dosya <> ""
        d.movefile eski & dosya, yeni & dosya
        dosya = Dir
    Loop

End Sub
 
Katılım
9 Şubat 2021
Mesajlar
4
Excel Vers. ve Dili
Microsoft Office 2019, Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2022
Merhaba, elimde 3000 adet resim var, hepsi aynı klasörde. Buradaki bütün dosyaları farklı klasörlere taşımak istiyorum.

Örnek:
Kaynak Klasör "C:\masaüstü\resim1\" deki 3000 resmin hepsini farklı klasörlere göndermek istiyorum.

Göndereceğim klasörlerin dizinleri excelde hazırladım.

Hedef: "C:\masaüstü\web gorselleri\anasayfa gorselleri\manset gorselleri\banner

bu şekilde 3000 adet farklı dizine göndermek istiyorum.

Bunu excelde nasıl yapabilirim?
 
Katılım
9 Şubat 2021
Mesajlar
4
Excel Vers. ve Dili
Microsoft Office 2019, Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2022
Merhaba, elimde 3000 adet resim var, hepsi aynı klasörde. Buradaki bütün dosyaları farklı klasörlere taşımak istiyorum.

Örnek:
Kaynak Klasör "C:\masaüstü\resim1\" deki 3000 resmin hepsini farklı klasörlere göndermek istiyorum.

Göndereceğim klasörlerin dizinleri excelde hazırladım.

Hedef: "C:\masaüstü\V3RESİM\R9650\COLOR PHOTOS\049

bu şekilde 3000 adet farklı dizine göndermek istiyorum.

Bunu excelde nasıl yapabilirim?
Şöyle anlatayım,

Ekli dosyadaki A sütununda dosya yolu belirtilmiş dosyaları B sütunundaki dizine kopyalamak istiyorum. Kopyalamak istediğim dizindeki dosyaların hepsi oluşturulmuş, tek istediğim bu dosyaların belirtilen dizine kopyalanması.

Teşekkür ederim.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Deneyiniz.
Kod:
Sub dasya_tasi()

    Dim eski As String, yeni As String, i As Long, d As Object, dosya As String
   
    Set d = CreateObject("Scripting.FileSystemObject")
   
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        eski = Cells(i, "A")
        yeni = Cells(i, "B")
        dosya = Split(eski, "\")(UBound(Split(eski, "\")))
        d.movefile eski, yeni & "\" & dosya
    Next i

End Sub
 
Katılım
9 Şubat 2021
Mesajlar
4
Excel Vers. ve Dili
Microsoft Office 2019, Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2022
Ömer Bey çok teşekkürler, çalıştı.
Beni büyük bir yükten kurtardınız.
Emeğinize sağlık.
 
Üst