| |
|
13 Haziran 2011, 22:58
| #1 | |
| Çevrimdışı  IF Ticaret Sayısı: (0) | Visual Basic - Belirtilen klasördeki tüm dosyaları tek tıklamayla silme Program içinde belirtilen klasördeki bütün dosyaları, bir buton aracılığıyla siler. Silme fonksiyonunda FSO kulanılmaz ve yenilenen (recursive) değildir. Kod: '// Forma bir adet buton ekleyin (Command1 adında) Public Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Boolean hNameMaps As Long sProgress As String End Type Public Const FO_DELETE = &H3 Public Const FOF_SILENT = &H4 Public Const FOF_RENAMEONCOLLISION = &H8 Public Const FOF_NOCONFIRMATION = &H10 Public Const FOF_SIMPLEPROGRESS = &H100 Public Const FOF_ALLOWUNDO = &H40 Public Const FOF_FILESONLY = &H80& Private Sub Command1_Click() '// UYARI: AŞAĞIDAKİ İFADE, KLASÖRDKEİ TÜM DOSYALARI HERHANGİ BİR UYAR VERMEDEN SİLER !!! Dim sFiles As String Dim SHFileOp As SHFILEOPSTRUCT sFiles = "D:\klasor\*.*" & Chr$(0) & Chr$(0) With SHFileOp .wFunc = FO_DELETE .pFrom = sFiles .fFlags = FOF_FILESONLY Or FOF_SILENT Or FOF_NOCONFIRMATION Or FOF_ALLOWUNDO End With Call SHFileOperation(SHFileOp) End Sub | |
| |  |
| IRCForumlari.NET Reklamlar |
   |
 |
| Etiketler |
| basic, belirtilen, silme, tek, visual |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Visual Basic | PySSyCaT | Bilgisayar Sözlüğü | 0 | 24 Ocak 2016 21:52 |
| Visual Basic | Cry | Bilgisayar Donanımı | 0 | 19 Eylül 2011 17:48 |
| Belirtilen klasördeki tüm dosyaları tek tıklamayla silme | Cemalizim | Visual Basic | 0 | 19 Temmuz 2008 17:00 |
Normal
