[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim path As String = "C:\folder"

If IO.Directory.Exists(path) Then

   Dim b As Boolean = IO.Directory.EnumerateFileSystemEntries(path).Any

   If b Then
       MsgBox("المجلد ليس فارغ")
   Else
       MsgBox("المجلد فارغ")
   End If

Else
   MsgBox("لم أجد المجلد")
End If