Klasörden klasöre resim aktarımı

[Tornael]

Merhabalar,

Ekteki dosyadaki excelde bir iki deneme yaptım ama beceremedim.
Forumlardan aldığım kodları çalıştırdığımda "Run-time error '445':" hatası aldığımdan dolayı üzerine çalışamadım.
İstediğim kısaca şu;
-F stununa girilen isimleri "Buradan" klasöründen alıp "Buraya" klasörüne taşıması.

 

[asi_kral]

Merhaba
Boş bir module oluşturup içerisine bu kodu kopyalayın ve deneyin.

Option Explicit
Sub Dosya_Taşı()
Dim ds, f, a
For a = 1 To Cells(Rows.Count, "F").End(xlUp).Row
If Cells(a, "F") <> "" Then
Set ds = CreateObject("Scripting.FileSystemObject")
f = ds.MoveFile(ThisWorkbook.Path & "\Buradan\" & Cells(a, "F") & ".jpg", ThisWorkbook.Path & "\Buraya\")
End If
Next
End Sub

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Sub dosya_tasi59()
Dim fso, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo son
For i = 2 To Cells(Rows.Count, "F").End(xlUp).Row
    fso.movefile ThisWorkbook.Path & "\Buradan\" & Cells(i, "F").Value & ".jpg ", ThisWorkbook.Path & "\Buraya\"
Next i
MsgBox "dosyalar taşındı." & "evrengizlen@hotmail.com"
Exit Sub
son:

End Sub

 

[Tornael]

Teşekkürler, Sayın asi_kral ve Sayın Orion1 Bey.
Elinize sağlık.

 

[nes432]

benimde görünce ilgimi cekti baktım ama çalıştıramadım buradan ve buraya klasörleri aynı klasör içinde mi olmalı çalışması için

 

[Orion1]

benimde görünce ilgimi cekti baktım ama çalıştıramadım buradan ve buraya klasörleri aynı klasör içinde mi olmalı çalışması için

3 nolu mesajda link verdim oradan indirebilirsiniz.

 

[nes432]

açılmıyor rar dosyası bozuk hatası veriyor

 

[Orion1]

açılmıyor rar dosyası bozuk hatası veriyor

rar dosyasından dışarı çıkarın klasörü.
Rar dosyası içinde çalışmaz.

 

[nes432]

tekrar denedim olmadı neyse ben aktaramadım sanırım yada bilg da bi sorun olabilir.