[VB_Coder]

السلام عليكم

- يبدو أن الأخ أديب يقصد حذف الملفات الموجودة داخل مجلد معين . هذا كود يحذف جميع الملفات التي بداخل المجلد الذي ستحدد مساره على جهازك . غير المسار الموجود في الكود إلى مسار المجلد عندك :

كود :

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click()

Dim Files As String

Files = Dir$("D:\AA\*.*")
DoEvents

Do While Len(Files)
              
   DeleteFile "D:\AA\" & Trim$(Files)
   DoEvents
                  
   Files = Dir$
   DoEvents
          
Loop

End Sub

- تحياتي .