Makro Yardımıyla Silmek

[aoeflatun]

Arkadaşlar aşağıdaki konuda yardımlarınızı rica ediyorum.

Aynı klasör içinde; a.xls, b.exe, c.pdf dosyaları var. Makro yardımıyla b.exe dosyanı ve c.pdf dosyasını silmek istiyorum. Yardımcı olursanız çok sevinirim.

Ali Osman Eflatun

 

[İhsan Tank]

merhaba

Private Sub CommandButton1_Click()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.DeleteFile "[COLOR="Red"]C:\Documents and Settings\user\Desktop\Yeni Klasör\1.xls[/COLOR]", True
ds.DeleteFile "[COLOR="red"]C:\Documents and Settings\user\Desktop\Yeni Klasör\2.pdf[/COLOR]", True
End Sub

kırmızı olan yerler dosya yerleri
kod alıntıdır.

 

[aoeflatun]

Teşekkür

Bilgileriniz için çok teşekkür ederim.
Yapmak istediğim uzun dosya adı yerine ( örneğin C:\ .....\.....\ b.exe), .........\b.exe ile yapmak.

Çünkü o klasör C nin yerine D sürücüsünde de olabiliyor. Ama sabit olan aynı klasör içinde olmaları.
Çok teşekkür ederim, yardımlarınız için.

 

[İhsan Tank]

Bilgileriniz için çok teşekkür ederim.
Yapmak istediğim uzun dosya adı yerine ( örneğin C:\ .....\.....\ b.exe), .........\b.exe ile yapmak.

Çünkü o klasör C nin yerine D sürücüsünde de olabiliyor. Ama sabit olan aynı klasör içinde olmaları.
Çok teşekkür ederim, yardımlarınız için.

ben size örnek olsun diye göndermiştim kırmızı yerleri değiştirdiğiniz takdirde silme işlemini yapmakta ben kodu denemek için o uzun kodu yazmak zorunda kaldım.
umarım yardımcı olabilmişimdir.kolay gelsin

 

[aoeflatun]

Yapmak istediğimi tam olarak şöyle anlatayım;

Bir klasör içinde 3 dosya var. Bu klasör C sürücüsünün içinde olduğu gibi D sürücüsününde içinde olabilir. Dosya silerken sadece adresini verdiğim klasör içindeki dosyayı silebiliyorum. Sürücüler değişebiliyor fakat dosyalar değişmiyor.
Dolayısıyla tam adres vermek yerine
ThisWorkbook.Path & "\c.pdf" yazıyorum fakat hata veriyor. Bu sorunumu nasıl çözebilirimi arıyorum.
Herkese teşekkürler.
Ali Osman Eflatun.

Not: Tam adres vererek yazdığım makroda istediğim silmeyi yapabiliyorum.

 

[security]

Merhaba Örnek Dosyanız Ekte...
Tüm Dosya Uzantılarını Silebilirsiniz...

 

[aoeflatun]

Teşekkürler Security

Teşekkür ederim.

Sonuçta aynı yere geliniyor fakat, sil menüsü çıkmadan yapılamıyor mu bu işlem?

 

[security]

Teşekkür ederim.

Sonuçta aynı yere geliniyor fakat, sil menüsü çıkmadan yapılamıyor mu bu işlem?

Yapılabilir Ama Komut Forumda Yasak Maleseff.Bu Sebebten Paylaşamayacagım...Ama Basit Tabiki Yapılabilir...