Listboxda Seçili adresdeki excel dosyasını Silme

[Sa.NaL]

Merhaba benim sizden ricam şu aşağıdaki komutla seçili dosyayı açabiliyorum peki sildirme komutu nasıl olmaktadır.İlginiz için şimdiden tşkler
if İşiGösterList.ListIndex <> -1 Then
For i = İşiGösterList.ListCount - 1 To 0 Step -1
If İşiGösterList.Selected(i) Then
Workbooks.Open Filename:= _
"D:\YAPILAN İŞLER\" & İşiGösterList.List(i) & ".xls"
Workbooks.Application.Visible = True
Unload İşiGösterForm
End If
Next
Else
MsgBox "Yapılan İşler Listesinden İşi Seçerek Tekrar Deneyiniz...!", vbInformation, "BİLGİLENDİRME MESAJI"
End If

 

[halit3]

sayın sa.nal
koduruza bunu ekleyiniz

Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")

if İşiGösterList.ListIndex <> -1 Then
For i = İşiGösterList.ListCount - 1 To 0 Step -1
If İşiGösterList.Selected(i) Then
DosyaSistemi.DeleteFile D:\YAPILAN İŞLER\" & İşiGösterList.List(i) & ".xls"
İşiGösterList.RemoveItem (İşiGösterList.ListIndex)
Workbooks.Application.Visible = True
Unload İşiGösterForm
End If
Next
Else
MsgBox "Yapılan İşler Listesinden İşi Seçerek Tekrar Deneyiniz...!", vbInformation, "BİLGİLENDİRME MESAJI"
End If

 

[Sa.NaL]

Hocam başka bir komut butonu yapıp sizin kodunuzu ekliyorum ondan sonra benim kodları yazıyorum open kısmını kaldırarak demi?

 

[Sa.NaL]

Tamam hocam şimdi oldu çok sağolun

 

[halit3]

mesajı düzelttim

 

[halit3]

iyi günler

 

[Sa.NaL]

sağolun sizede iyi çalışmalar