+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج كود التحقق من مجلد ان كان فارغ (/showthread.php?tid=19817)
احتاج كود التحقق من مجلد ان كان فارغ - bidaya - 28-03-17
السلام عليكم ورحمة الله تعالى وبركاته
اتمنى ان يكون الجميع بالف خير وعافية
ابحث على كود يتحقق من المجلد ان كان فارغ ام لا
وشكرا
RE: احتاج كود التحقق من مجلد ان كان فارغ - مساعدة - 28-03-17
السلام عليكم
تفضل الكود
كود :
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 IfRE: احتاج كود التحقق من مجلد ان كان فارغ - bidaya - 29-03-17
(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
دائما متألق
جزاك الله خيرا