Yedek klasörden dosya kopyalama

[k0081]

Merhaba arkadaşlar;
bir buton yardımı ile;
aktif excel tablosunu çalıştığı klasöre, dosya kopyalatmak istiyorum..

şöyle ki;

aktif dizin : "2013 VERI"

yedek dizin : "2013 VERI\YEDEK\"

**********************

"Yedek" içindeki dosyaları , 2013 VERI klasörüne şartsız kopyalatmak istiyorum..

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

 

[dEdE]

Merhaba,
Kopyalanacak dosyalar için sürücü belirtmediğinizden çalıştığınız dizinin C sürücüsünde olduğunu varsaydım. Gerekirse dosya yolunu kendinize göre değiştirmelisiniz.

Sub Dosya_Kopyala()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "C:\2013 VERI\YEDEK\*.*", "C:\2013 VERI\"
End Sub

 

[k0081]

hocam cevap için teşekkürler.. ama C yada D sürücüsünü özellikle belirtmedim.. çünkü kopyalama islemi her zaman aynı klasörde değil.. fakat yedek klasörü her zaman sabit...

yani şöyle:

herhangi bir klasör düşünün, Harddiskte bir yerde..,, mesela; 2013 VERI C de yada D farketmez.. (CD-ROM drive hariç...) bunun içinde YEDEK isminde ayrıca bir klasör daha mevcut.. kopyalama bu "yedek" klasöründen 2013 VERI klasörüne olacak..

burda "2013 VERI" klasörü değişkendir.. ama "yedek" klasörü sabittir..