بيانات الهارد ديسك فى جهازك

[مختار حسين محمود]

بسم الله الرحمن الرحيم


والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم  ) صلاةً الى يوم الدين

إخوانى وأحبابى وزملائى  وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته
 
أما بعد

يشرفنى أن أقدم لحضراتكم ملفا به كود منقول أكثر من رائع هذا الكود يمكنه أن يظهر لك ما يأتى

1 - عدد البارتشنات فى الهارد ديسك

2 - نوع البارتشنات فى الهارد ديسك

3 - مساحة كل بارتشن والمساحة الكلية للهارد ديسك

4 - المساحة المستخدمة فى كل بارتشن والمساحة الكلية المستخدمة فى الهارد ديسك

5 -المساحة الفارغة فى كل بارتشن والمساحة الكلية الفارغة  فى الهارد ديسك

  6- اظهار المساحة الكلية و المستخدمة و الفارغة فى أى وحدات التخزين كالفلاشات المتصلة  بجهازك

 

طريقة استخام الملف : بسيطة  ضغطة زر فقط لا غير

ملحوظة 1: اعرف مساحة الهارديسك قبل وضع فلاشة وبعدها 

ملحوظة 2 : أى تغيير بالزيادة والنقص فى المساحات لديك يظهرها الكود بضغطة واحدة

 أتمنى أن تسعدوا به
 
لكم منى كل محبة وتقدير واحترام
 
والحمد لله تعالى من قبل ومن بعد

***************

Drives names Type Size SpaceFree etc.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

هو دا الكلام يا كبير ..عايزين كل يوم من ده وإلا ..

ولا بلاش وإلا .. مختار شاطر وبيسمع الكلام من غير وإلا

تقبل تحياتي

[دغيدى]

أخى الكريم

عندى  ووندوز 64

[ابراهيم الحداد]

 

بارك الله فيك

 

 

[Yasser Fathi Albanna]

جزاك الله خيرا

وسلمت يمينك أخى مختار

أعمالك رائعة

[مختار حسين محمود]

أستاذى ياسر اللى ما يسمعش كلام أستاذه يا ويله اسألنى أنا عن الموضوع ده . تحياتى

 

أستاذى الفاضل دغيدى شرفت بمروركم

امبارح وأنا بأسجل مشاركة للرد عليكم قطع النور وهذا سبب تأخرى فى الرد

أنا عندى win 7 - 32  بت ولم أجرب تشغيل الملف على النظام  win 7 - 64 وبحثت  عند بعض الأصدقاء عن  win 7 - 64  للتجربة فلم أجد

لذا أقترح على سيادتكم اذا كان الملف لا يعمل مع النظام  win 7 - 64  تغيير المكتبة kernel32 التى نستدعيها فى الكود الى kernel64 .

هذا على حد علمى والله أعلى وأعلم . لابد أن هناك طريقة لتحويل التصريحات فى الكود لكى تعمل مع kernel64 وهذا لا أعلمه .

واسمح لى بنصيحة من تلميذك لك ولكل الزملاء :  

  إن أمكن   فرد تسختى ويندوز مختلفتين على الجهاز الواحد . ( مثلا على جهازى win xp sp3  ,win 7 - 32 )

مع خالص تقديرى واحترامى لشخصكم الكريم .

 

 

أستاذ زيزو بارك الله فيكم وسعدت وشرفت بمروركم الكريم

 

أخى ياسر فتحى بارك الله فيك . أسال الله تعالى أن يوفقنا فى رد الجميل لمنتدانا 

تم تعديل مارس 22, 2015 بواسطه مختار حسين محمود

[مختار حسين محمود]

أخى الكريم أبو ايمان بارك الله فيكم وجازاكم أيضاً تحياتى

[منياوى]

شكرا الف شكر

[مختار حسين محمود]

شكرا الف شكر على مرورك نورت الموضوع

[حليم ناصر]

جزاك الله خيرا

[مختار حسين محمود]

وجازاكم خيرا    أعتذر عن تأخر الرد  تحياتى لك

[مختار حسين محمود]

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

اخوانى الكود فى المرفق السابق يعمل مع ويندوز 32   ولا يعمل مع ويندوز 64

الحمد لله وصلت الى التعديل المناسب بمساعدة Mr. Jan Karel Pieterse

 

لكى يعمل الكود مع الأخوة الذين يعملون على ويندوز 64  برجاء تجربة الكود التالى واخبارى بالنتيجة

Option Explicit
 
#If VBA7 Then
    Private Declare PtrSafe Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal sDrive As String) As LongPtr
    Private Declare PtrSafe Function GetDiskFreeSpaceEx Lib "kernel32" Alias _
    "GetDiskFreeSpaceExA" (ByVal lpDirectoryName As String, _
    lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As _
    Currency, lpTotalNumberOfFreeBytes As Currency) As LongPtr
#Else
    Private Declare Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal sDrive As String) As Long
    Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
    Alias "GetDiskFreeSpaceExA" (ByVal lpDirectoryName As String, _
    lpFreeBytesAvailableToCaller As Currency, _
    lpTotalNumberOfBytes As Currency, _
    lpTotalNumberOfFreeBytes As Currency) As Long
#End If
 
Function DriveSize(DriveLetter As String) As String
    #If VBA7 Then
        Dim Status As LongPtr
    #Else
        Dim Status As Long
    #End If
    Dim TotalBytes As Currency
    Dim FreeBytes As Currency
    Dim BytesAvailableToCaller As Currency
    Status = GetDiskFreeSpaceEx(DriveLetter & ":\", _
    BytesAvailableToCaller, TotalBytes, FreeBytes)
    If Status <> 0 Then
        DriveSize = TotalBytes * 10000
    Else
        DriveSize = ""
    End If
End Function
Function DriveSpaceFree(DriveLetter As String) As String
    #If VBA7 Then
        Dim Status As LongPtr
    #Else
        Dim Status As Long
    #End If
    Dim TotalBytes As Currency
    Dim FreeBytes As Currency
    Dim BytesAvailableToCaller As Currency
    Status = GetDiskFreeSpaceEx(DriveLetter & ":\", _
    BytesAvailableToCaller, TotalBytes, FreeBytes)
    If Status <> 0 Then
        DriveSpaceFree = FreeBytes * 10000
    Else
        DriveSpaceFree = ""
    End If
End Function
Function DriveType(DriveLetter As String) As String
     '   Returns a string that describes the type of drive of DriveLetter
    DriveLetter = Left(DriveLetter, 1) & ":\"
    Select Case GetDriveType(DriveLetter)
    Case 0: DriveType = "Unknown"
    Case 1: DriveType = "Non-existent"
    Case 2: DriveType = "Removable drive"
    Case 3: DriveType = "Fixed drive"
    Case 4: DriveType = "Network drive"
    Case 5: DriveType = "CD-ROM drive"
    Case 6: DriveType = "RAM disk"
    Case Else: DriveType = "Unknown drive type"
    End Select
End Function
Sub ShowAllDrives()
    Dim LetterCode As Long
    Dim Row As Long
    Dim DT As String
    Range("A1:D1") = Array("Drive", "Type", "Total Bytes", "Free Bytes")
    Row = 2
    For LetterCode = 65 To 90
        DT = DriveType(Chr(LetterCode))
        If DT <> "Non-existent" Then
            Cells(Row, 1) = Chr(LetterCode) & ":\"
            Cells(Row, 2) = DT
            Cells(Row, 3) = DriveSize(Chr(LetterCode))
            Cells(Row, 4) = DriveSpaceFree(Chr(LetterCode))
            Row = Row + 1
        End If
    Next LetterCode
End Sub

أرجو من الأخوة الذين يعملون على ويندوز 64  اخبارى بالنتيجة   تقبل الله منا ومنكم صالح الأعمال

تم تعديل أبريل 24, 2015 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

لو كان عندي ويندوز 64 بت كنت جربته من غير ما تقول يا مخ ..إنت حبيبي وغالي على قلبي

بس إن شاء الله يشتغل مع الناس اللي عندهم 64 بت

تقبل تحياتي

[مختار حسين محمود]

أشكرك أخى وأستاذى العزيز 

 

ربنا يكرمنا بحد يكون عنده  64  وإلا ......ولا أقولك  بلاش نصبر شويه

 

حاولت أبعت على الخاص بتاع أستاذنا  دغيدى  لقيته مغلق لأنه أول من طلب ذلك ولا أعرف كيف أبلغه

 

تحياتى لك

[دغيدى]

أخى الكريم /  مختار حسن محمود

سلام الله عليكم

أشكركم على تذكركم لطلبى وهو طلب عام لأخوة كثر

الكود يعمل بشكل جيد .

استفسار مهم :

كيف نستفيد من هذا الكود لنضعة فى كود خاص بـ 32 لتحويله لـ 64

 

شكرا

مرفق ملف به كود نظام 64

Drives names Type Size SpaceFree etc.rar

[مختار حسين محمود]

الحمد لله أستاذى الفاضل أننا توصلنا الى ذلك

 

 

حقيقةً سيدى الفاضل لم أتمكن بنفسى من التعديل وانما بمساعدة  Mr. Jan Karel Pieterse

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

http://www.jkp-ads.com/articles/apideclarations.asp

 

وبصراحة أنا خدتها من قصيرها وطلبت منه التعديل

عشان أضمن ازاى بيحوّل التصريحات لكى تعمل فى ويندوز 32 و 64  ولم يتأخر الرجل مشكورا .

وبإذن الله  سأحاول فى الفترة القادمة إزاى تم تحويل تصريحات تعمل فى 32 الى تصريحات تعمل فى 32 و64 طبقا للرابط المذكور.

ويبدو أن كلمة السر عند مايكروسوفت فى التعديل الذى أصدرته لـ Win32API.txt  

هذا التعديل هو Office2010Win32API_PtrSafe  حسب ما فهمته من الرابط المذكور

 

ملحوظة : مرفق حضرتك بعمل على  win_ 32 bit  and win_64 bit

 

تحياتى لك

Win32API_PtrSafe.rar

تم تعديل أبريل 25, 2015 بواسطه مختار حسين محمود

[دغيدى]

أخى الكريم /  مختار حسن محمود

سلام الله عليكم

أشكركم على المتابعة

 

 

 

 

لكم منى

[مختار حسين محمود]

أستاذى الفاضل أشكرك على الهدية . لك منى كل تحية وتقدير واحترام

 

     

 

تلميذك / مختار حسين محمود