Dosya silme

[k0081]

Merhaba arkadaşlar;

C:\Documents and Settings\USER001\Application Data\deneme.txt


buradaki deneme.txt dosyasını buton yardımı ile nasıl silebilirim..? (USER001 değişken durumdadır..)

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

 

[Ömer]

Merhaba,

Kill komutu ile silebilirsiniz.

Sub Sil()
    
    Kill "C:\Documents and Settings\USER001\Application Data\deneme.txt"
 
End Sub

 

[fireman64]

kullanıcı adı değişken olacak hocam

 

[Ömer]

kullanıcı adı değişken olacak hocam

Bu şekilde yazılabilir.

Sub Sil()
 
    Dim kullanici As String
 
    kullanici = Application.UserName
    
    On Error GoTo son
    Kill "C:\Documents and Settings\" & kullanici & "\Application Data\deneme.txt"
    
    Exit Sub
son:
     MsgBox "Dosyayı Bulamadım"
     
 
End Sub

.

 

[k0081]

Fireman64 hocam teşekkürler benden önce cevap yazdığınız için..
*************************

Ömer hocam; çok teşekkür ediyorum.. son göndermiş olduğunuz kod ile tamamdır..

 

[erturk_emre]

Herkese merhabar ve iyi bayramlar,
Konu ile ilgili olduğunu düşündüğüm için buraya yazayım dedim. Benim de silme ile ilgili bir sorum var. Bir excel sheet içinde A1 den A2000 e kadar dosya isimleri var. Örnek olarak A1 de EEE0001 yazıyor. Belirli bir klasörün içinde bu isimde başlayan bütün dosyaları nasıl silebilirim. Örneğin New Folder içinde EEE0001_111, EEE0001AAAA gibi dosyalar var. Makro ile bunları silmem mümkün müdür ? Tabi 2000 satır için de aynı kuralın devam etmesi gerekecek. Üstteki makroya bu uyarlanabilir mi?

Teşekkürler...

 

[Murat OSMA]

Örnek kodlar.. Kendinize uyarlayın..

[FONT="Trebuchet MS"]Sub Emre()
    Dim klasör$, dosya$
    klasör = [COLOR="Red"]ThisWorkbook.Path[/COLOR] ' klasör yolunu yazılacak
    dosya = Dir(klasör & "\*")
    Do Until dosya = ""
        If [COLOR="red"]Left[/COLOR](dosya, [COLOR="red"]3[/COLOR]) = "[COLOR="red"]aaa[/COLOR]" Then  ' ilk 3 karakteri aaa ise
            Kill klasör & "\" & dosya
        End If
        dosya = Dir()
    Loop
    dosya = "": klasör = ""
End Sub[/FONT]

 

[erturk_emre]

Örnek kodlar.. Kendinize uyarlayın..

[FONT="Trebuchet MS"]Sub Emre()
    Dim klasör$, dosya$
    klasör = [COLOR="Red"]ThisWorkbook.Path[/COLOR] ' klasör yolunu yazılacak
    dosya = Dir(klasör & "\*")
    Do Until dosya = ""
        If [COLOR="red"]Left[/COLOR](dosya, [COLOR="red"]3[/COLOR]) = "[COLOR="red"]aaa[/COLOR]" Then  ' ilk 3 karakteri aaa ise
            Kill klasör & "\" & dosya
        End If
        dosya = Dir()
    Loop
    dosya = "": klasör = ""
End Sub[/FONT]

Murat hocam merhaba,

Öncelikle çok teşekkür ederim ancak ben tam anlatamadım ya da makroyu uyarlayacak kadar bilmiyorum sanırım. Eklediğim ss ile sanırım konu netleşecek.




Dosya eklemeyi bulamadım o yüzden linke bulunan yere örnek dosyayı da ekledim.

New.zip indir

Çok teşekkürler...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub DOSYA_SİL()
    Yol = "C:\New\"
    Dosya = Dir(Yol & "*.*")
    Do While Dosya <> ""
        For X = 1 To Cells(Rows.Count, 1).End(3).Row
            If Left(Dosya, Len(Cells(X, 1))) = Cells(X, 1) Then
                Kill Yol & Dosya
                Exit For
            End If
        Next
        Dosya = Dir
    Loop
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[erturk_emre]

Aşağıdaki kodu deneyiniz.

Sub DOSYA_SİL()
    Yol = "C:\New\"
    Dosya = Dir(Yol & "*.*")
    Do While Dosya <> ""
        For X = 1 To Cells(Rows.Count, 1).End(3).Row
            If Left(Dosya, Len(Cells(X, 1))) = Cells(X, 1) Then
                Kill Yol & Dosya
                Exit For
            End If
        Next
        Dosya = Dir
    Loop
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Hocam merhaba,

Elinize sağlık mı desem, Allah razı olsun mu desem cidden çok teşekkür ederim. Beni çok ciddi bir işten kurtardınız harika bir kod.

Murat Bey'e de teşekkür ederim.
Tekrar teşekkürler saygılar selamlar...

 

[utkui]

silme ve aktarma makrosuna yeni sayfa ekleme

Merhaba ,

elimde bir excel kitabı var. DATAP sayfasında 2 buton var ;

AKTAR butonu ile excel sayfasındaki verileri bazı kısıtlara göre diğer sayfalara kopyalıyorum .

DİZ butonu ile de tüm sayfalardaki verilerin bazılarını siliyorum.
Şimdi X5 sayfası da eklemek istiyorum ve aynı butonların bu sayfa için de çalışmasını istiyorum.

yardımcı olur musunuz

 

[KAIZEN1]

A Sutünunda yazılı excel dosya isimlerini klasörden silmek isitiyorum

Sub sil()

satır = Range("c1").End(xlDown).Row



For i = 1 To satır



If Range("c" & i) = "" Then


Kill C:\Users\Murat\Desktop\Yeni klasör\ Range("a" & i)

Next i

End Sub

 

[Seli]

Hocam Kill "C:\Users\" & kullanici & "\Desktop\" & "tarih.xls" bu sekılde excel dosyasını sılmek ıstıyorum hata alıyorum nedne olabilir?

 

[Korhan Ayhan]

Ne hatası veriyor?

 

[Seli]

Hocam bu kod sanırım dosya ıcınde excellerı sılıyor. Benım masaustunde duran tarih.xls ısımlı exceli silmesini istiyorum.

 

[Orion1]

Hocam bu kod sanırım dosya ıcınde excellerı sılıyor. Benım masaustunde duran tarih.xls ısımlı exceli silmesini istiyorum.
.............................................Klasör

 

[Korhan Ayhan]

Hocam Kill "C:\Users\" & kullanici & "\Desktop\" & "tarih.xls" bu sekılde excel dosyasını sılmek ıstıyorum hata alıyorum nedne olabilir?

Ne hatası veriyor?

 

[Cumas]

Aşağıdaki kodu deneyiniz.

Sub DOSYA_SİL()
    Yol = "C:\New\"
    Dosya = Dir(Yol & "*.*")
    Do While Dosya <> ""
        For X = 1 To Cells(Rows.Count, 1).End(3).Row
            If Left(Dosya, Len(Cells(X, 1))) = Cells(X, 1) Then
                Kill Yol & Dosya
                Exit For
            End If
        Next
        Dosya = Dir
    Loop
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

İyi Günler Kolay Gelsin
Bu ara herkese iyi bayramlar.
Ben bir işim için araştırma yaparken bu konuyu buldum.
Bu kodu aldım denedim güzel çalışıyor. Yolunu koda ekleyip belirttiğimiz klasördeki Dosyaları siliyor.
Benimkisini şöyle olmasını istiyorum.
Excel çalışma sayfasında A sütununda dosyaların listesi var (uzantısı da yazılmış bir biçimde)
Bu listenin sağında herhangi bir yerde bir düğme olacak (Bu düğmeyi tıklayınca makro çalışacak ve işlevini yerine getirecek)
A sütunundaki listede bulunan dosyaları Klasörde varsa silecek, ve dosyanın sağındaki hücreye "silindi" yazacak; eğer yoksa o zaman sağındaki hücreye "Dosya bulunamadı" yazacak. A sütunundaki listede adı bulunmayan dosyalar silinmeyecek, klasörde kalacak.
Nasıl mümkün mü?
Bir zahmet ilgilenir misiniz.
Şimdiden teşekkür ederim.