منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

تفضل الكود
كود :
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
(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
الله يحفظك اخي
دائما متألق
جزاك الله خيرا