تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود التحقق من مجلد ان كان فارغ
#1
السلام عليكم ورحمة الله تعالى وبركاته
اتمنى ان يكون الجميع بالف خير وعافية

ابحث على كود يتحقق من المجلد ان كان فارغ ام لا
وشكرا Big Grin Big Grin
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
السلام عليكم

تفضل الكود
كود :
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
الرد
#3
(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
الله يحفظك اخي
دائما متألق
جزاك الله خيرا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شباب انا جديد هنا احتاج المساعدة في الفيجوال ادرس في المانيا informatikkaufmann ٍSaeid 1 48 منذ 3 ساعة مضت
آخر رد: sirnon
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 2 77 21-04-18, 05:23 AM
آخر رد: سعود
  احتاج مساعده في تحويل كود الاستعلام Marwan9990 0 41 15-04-18, 12:31 PM
آخر رد: Marwan9990
  كيف يمكن التحقق من وجود اسم موظف بقاعدة بيانات الحضور وسام عبدالله الدمرداش 3 123 12-04-18, 01:30 AM
آخر رد: ملهمـ
Photo احتاج مساعدة جزاكم الله خيرا عادل ادعبدالله 0 57 08-04-18, 11:42 PM
آخر رد: عادل ادعبدالله
  سلام عليكم احتاج كود يقوم بطباعة Report Viewer 1 بشكل اتوماتيكي مجرد فتح الفورم mohamedgadain61 0 35 16-02-18, 04:30 PM
آخر رد: mohamedgadain61
  احتاج تركيب كود hglogtd 2 23 12-02-18, 07:31 PM
آخر رد: hglogtd
  فتح مجلد معين المتألق9 2 32 06-02-18, 10:55 AM
آخر رد: المتألق9
  احتاج مساعدة عادل ادعبدالله 2 44 03-02-18, 04:03 PM
آخر رد: عادل ادعبدالله
  احتاج تعديل هذا الاستعلام nooralcown 0 27 01-02-18, 12:09 AM
آخر رد: nooralcown

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم