[bidaya]

السلام عليكم ورحمة الله تعالى وبركاته
اتمنى ان يكون الجميع بالف خير وعافية

ابحث على كود يتحقق من المجلد ان كان فارغ ام لا
وشكرا

[مساعدة]

السلام عليكم

تفضل الكود

كود :

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

[bidaya]

(28-03-17, 06:10 PM)مساعدة كتب : السلام عليكم

تفضل الكود

كود :

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

الله يحفظك اخي
دائما متألق
جزاك الله خيرا