klasörü aynı klasörün içine yedekleme

[Crazy Drake]

"C:/Resimler" klasörü kopyalanarak "C:/Resimler" içine "yedek" isminde kaydedilecek bunu nasıl yapabiliriz.

forumda aradım ama bulamadım bulduklarım üst klasöre kopyasını kaydediyor örneğin "C:/Resimler" klasörünü "C:/Resimler1" olarak kopyalıyor benim istediğim kopya "C:/Resimler/yedek" şeklinde olacak

umarım anlatabilmişimdir :redface:

 

[halit3]

"C:/Resimler" klasörü kopyalanarak "C:/Resimler" içine "yedek" isminde kaydedilecek bunu nasıl yapabiliriz.

forumda aradım ama bulamadım bulduklarım üst klasöre kopyasını kaydediyor örneğin "C:/Resimler" klasörünü "C:/Resimler1" olarak kopyalıyor benim istediğim kopya "C:/Resimler/yedek" şeklinde olacak

umarım anlatabilmişimdir :redface:

Klasörü kapyalarken kapyalanan klasörün içine kopyalama yapmaz.
Bunu manuel elle herhangibir klasörü kopyalayın sonra o klasörü açın ve içine yapıştırın görüleceği gibi bilgisayarınız bu işlemi yapmıyacaktır

hedef klasör kaynak klasörün bir alt klasörü olduğu uyarısını alırsınız.

 

[leumruk]

Merhaba,
Halit Bey'in verdiği bilgiler ışığında alternatif bir yöntem denedim. Kodun klasörü başka bir yere kopyalayıp, sonrasında resimler içine taşımasını sağladım.

Sub Aynı_Klasor_Icine_Kopyala()
Set kls = CreateObject("Scripting.FileSystemObject")
kls.copyFolder "C:\Resimler", "C:\yedek"
kls.moveFolder "C:\yedek", "C:\Resimler\yedek"
MsgBox "Klasör kopyalandı.", vbInformation, "l e u m r u k"
End Sub

 

[halit3]

Merhaba,
Halit Bey'in verdiği bilgiler ışığında alternatif bir yöntem denedim. Klodun klasörü başka bir yere kopyalayıp, sonrasında resimler içine taşımasını sağladım.

Sub Aynı_Klasor_Icine_Kopyala()
Set kls = CreateObject("Scripting.FileSystemObject")
kls.copyFolder "C:\Resimler", "C:\yedek"
kls.moveFolder "C:\yedek", "C:\Resimler\yedek"
MsgBox "Klasör kopyalandı.", vbInformation, "l e u m r u k"
End Sub

Mustafa bey bu göntemle klasör kapyalanır ama ikinci kez kapyalama yapıldığında yedeğin,yedeği olacak üçüncü kes kapyaladığında yedeğin,yedeğin,yedeği olacak herseferinde bu artacak bana kalırsa bu uygulama bek sağlıklı gözükmüyor.

Bunun yerine klasörü başka bir kalasörün içine kopyalaması daha sağlıklı olacaktır.

 

[leumruk]

Halit Bey,
Haklısınız, kopyalama yaparken "yedek" isimli klasörü de her seferinde kopyalamış olacak. Yedek klasörün başka bir yerde oluşturulması bence de daha kullanışlı olur.

Buna rağmen üyemiz bu şekilde kullanmak isterse bu sorunu aşağıdaki şekilde aşabiliriz:

Aşağıdaki kod işlem yapmadan önce resimler klasörünü kontrol ediyor. Eğer "yedek" isimli klasör varsa bu klasörü silip, işleme ondan sonra devam ediyor. Böylece tekrarlı kopyalamanın önüne geçmiş oluyoruz.

Sub Aynı_Klasor_Icine_Kopyala()
Set kls = CreateObject("Scripting.FileSystemObject")
If kls.FolderExists("C:\Resimler\yedek") = True Then
kls.deleteFolder "C:\Resimler\yedek"
End If
kls.copyFolder "C:\Resimler", "C:\yedek"
kls.moveFolder "C:\yedek", "C:\Resimler\yedek"
MsgBox "Klasör kopyalandı.", vbInformation, "l e u m r u k"
End Sub