Dosya yolu olan dosyayı kopyalama

[gorsar]

Merhabalar;

Dosya yolları sutun halinde listede mevcut bu hücredeki yolu okuyup belirlenen klasöre sırasıyla atacak şekilde nasıl yapabiliriz.

Çok teşekkürler.

 

[Muzaffer Ali]

Merhaba.
"c:/Klasor Adı" yerine dosyanın yapıştırılacak klasör yolunu yazın.

Sub Kopyala()
    Dim Bak As Long
  
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Dir(Cells(Bak, "A")) = "" Then
            MsgBox Cells(Bak, "A") & " konumundaki dosya yok."
        Else
            FileCopy Cells(Bak, "A"), "c:\Klasor Adı"
        End If
    Next
End Sub

 

[gorsar]

Merhaba.
"c:/Klasor Adı" yerine dosyanın yapıştırılacak klasör yolunu yazın.

Sub Kopyala()
    Dim Bak As Long
  
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Dir(Cells(Bak, "A")) = "" Then
            MsgBox Cells(Bak, "A") & " konumundaki dosya yok."
        Else
            FileCopy Cells(Bak, "A"), "c:/Klasor Adı"
        End If
    Next
End Sub

Cevabınız için çok teşekkür ederim ama debugda filecopy cells kısmında hata veriyor dosya yolunu yazmama rağmen peki bu kodu a sutunun daki dosya yolundaki dosyayı b sutunundaki yola kopyalayacak şekilde değiştirebilir miyiz.

 

[Muzaffer Ali]

Aşağıdaki kod ile deneyin.
Kpopyalanacak dosya adresleri A1 den itibaren aşağıya doğru yazılmış olmalı.
YapistirmaAdresi="c:\Klasor Adı" buraya yapıştırılacak klasör yolunu yazın.

Sub Kopyala()
    Dim Bak As Long
    Dim DosyaAdi As Variant
    Dim YapistirmaAdresi As String
    YapistirmaAdresi = "c:/Klasor Adı"
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Dir(Cells(Bak, "A")) = "" Then
            MsgBox "'" & Cells(Bak, "A") & "'' konumundaki dosya yok."
        Else
            DosyaAdi = Split(Cells(Bak, "A"), "\")
            FileCopy Cells(Bak, "A"), YapistirmaAdresi & DosyaAdi(UBound(DosyaAdi))
        End If
    Next
End Sub

Yine yapamazsanız örnek dosyanızı ekleyin.

 

[gorsar]

Çok teşekkürler ilk verdiğiniz kodu düzenleyerek hallettim. Son klasörü kapatmayı unuttuğum için hata alıyormuşum.