flash bellege yedekleme

[dr_1356]

benim D de PETROL adlı klasörümü ekte gönderdigim sayfada yedekleme butonuna basınca D deki PETROL adlı klasörüm ALİ isimli flash bellege yine PETROL ismi ile PETROL olarak kaydedilsin istiyorum yapılacak dosya ektedir . lütfen biri bu dosyayı yapabilirmi herkese söylüyorum ugraşıyorum bir türlü yapamıyorum şimdiden teşekürler.................

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Not:Flash diskin sürücü harfini bilgisayarınızdakine göre değiştiriniz.

Sub Klasorkopyala()
CreateObject("Scripting.FileSystemObject").CopyFolder Application.ActiveWorkbook.Path, "[B][COLOR=blue]F[/COLOR][/B]:\ALİ"
End Sub

 

[dr_1356]

Recep ipek kardeşim bana cevap yazdıgın için teşekürler ama flash disk yazdıgınız gibi f ama d deki petrol isimli klasörü kopyalamadı zaten makrodada petrol ismini göremedim tekrar yardımcı olabilirmisiniz teşekürler............

 

[Recep İpek]

Peki bu kullandığınız dosya PETROL isimli klasörün içinde değil mi?

Değil ise

Sub Klasorkopyala()
CreateObject("Scripting.FileSystemObject").CopyFolder "D:\PETROL", "[B][COLOR=blue]F[/COLOR][/B]:\PETROL"
End Sub

olarak deneyiniz? Flash diskte PETROL isimli klasörün önceden olması gerekmektedir.

 

[dr_1356]

recep bey kullandıgım dosya PETROL isimli klasörün içinde ilk yazdıgınız gibide olmadıİKİNCİ YAZDIGINIZ GİBİDE DENEDİM OLMADI ama heralde çok yakınlaştık olacak gibi........ikinci yazdıgım makro ektedir

 

[Recep İpek]

Sub Klasorkopyala()
CreateObject("Scripting.FileSystemObject").CopyFolder Application.ActiveWorkbook.Path, "F:\PETROL"
End Sub

olarak deneyebilirmisiniz? Flash belleğin adı ile klasörü karıştırmışım.

 

[dr_1356]

yaa çok çok teşekür ediyorum ama deniyoz olmuyor şöyle yapsak olurmu benim aşagıda gönderdigim PETROL adlı klasörü D ye kaydetsen ve onun içinde aaaa.xls dosyasındaki yedekleme ye basınca ve senin flash bellege ALİ ismini versen flash bellege kayıt ediyor mu etmiyormu kayıt edince hata vermezse bana göndersen olurmu çok yük oluyorum ama eger yaparsan bana çok büyük bir iyilik olur .Yani şundan dolayı sen orda denersin oluyorsa bana gönderirsin şimdiden çok teşekürler.....................