OFFLINE

Merhaba arkadaşlar şimdi dosya silme programı yapmayı göstereceğim sizlere
Programı yapmak için
------------------------------------
1 adet Common Dialog
1 adet Textbox
2 adet buton
-----------------------------------
ekleyelim...
common dialog u eklemek için
ctrl+t yapın ordan
microsoft common dialog control u seçin
eğer o listede yoksa
browse ye tıklayın
COMDLG32.OCX
i bulun ve yükleyin...
Text1 Enabled = False olsun.
Common dialog un name si = CD
olsun diğerleri aynı kalsın...
nesneleri isterseniz resimdeki gibi yerleştirebilirsiniz.

Kod ;

Private Sub Command1_Click()
With CD
.DialogTitle = "Silinecek Dosyayı Seçiniz"
.ShowOpen
End With
Text1.Text = CD.FileName
End Sub

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "İl önce silinecek dosyayı seçmelisiniz"
Else
On Error Resume Next
Kill Text1.Text
MsgBox "Dosya başarılı bir şekilde silindi"
End If
End Sub

Ve bitti
Kendi anlatımımdır...
Emeğe Saygı ..

OFFLINE

bu çok uzmanca olmuş

OFFLINE

saol