الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

من لديه معلومات حول التعامل مع المجلدات لا يحرمنا من علمه

بدأه mam555 في 13 مارس 2008 · 3 رد · 936 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

أخواني عندي سؤالين

الاول :

   Dim Directory As DirectoryInfo = New DirectoryInfo("C:\sdd") 'موقع المجلد
		MsgBox(Directory.GetDirectories.Length.ToString) 'عدد المجلدات الموجوده 
		MsgBox(Directory.GetFiles.Length.ToString) 'عدد الملفات الموجودة 
		MsgBox(Directory.GetFileSystemInfos.Length.ToString) ' عدد الملفات والمجلدات

هذا الكود يتعامل مع المجلد بحيث يضهر عدد المجلدات وعدد الملفات والعدد الكلي للمجلدات والملفات

والسؤال كيف استرجع حجم المجلد والملف

السوال الثاني :

   Dim Query As String = "Select * from Win32_LogicalDisk "
		Dim colDisks As New ManagementObjectSearcher(Query)
		For Each Disk As ManagementObject In colDisks.Get
			MsgBox(Disk("DeviceID")) 'أسم الدريف
			MsgBox(Disk("Size")) 'سعة التخزين 
		Next

هذا الكود يتعامل مع محركات وحدة التخزين بحيث يظهر أسم المحرك والحجم الكلي للمحرك (الدريف)

والسؤال كيف استرجع حجم المساحة الحرة وحجم المساحة المستخدمة

طبعا لستخدام هذين الكودين يجب أستدعا فضاء الاسماء Imports System.IO و Imports System.Management

بارك الله فيكم وجعلكم الله فيمن بنتفع من علمكم

#2

أحمد الله لقد وجدت الحل لأجابة السوال الاول

وهو : كيف استرجع حجم المجلد والملف ؟

 Dim Directory As DirectoryInfo = New DirectoryInfo("C:\e") 'المجلد
		Dim File As FileInfo = New FileInfo("C:\e\name.txt") 'الملف
		MsgBox(DirSize(Directory).ToString) 'حجم المجلد
		MsgBox(File.Length.ToString) 'حجم الملف

الله يقدرني وأجد جواب للسؤال الثاني... :clapping:

#3

راجع خصائص الفئة Win32_LogicalDisk في مكتبة MSDN أو على موقع مايكروسوفت ستجد العديد من الخصائص المثيرة مثل FreeSpace التي تعطي المساحة الحرة و BlockSize و NumberOfBlocks الذي يكون ناتج جدائهما المساحة الكلية للقرص ويمكنك استنتاج قيمة المساحة المستخدمة حسابيا

1

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#4

أبو سلو لا أملك لك ألا :ty: والدعاء بالجنة وأن ينفع الله بك بما علمك ...

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…