[مغلق - سؤال مخالف]سؤال من مبتدئ : ما المقصود بمكتبة Microsoft Scripting Runtime واين موجود وكيفية الوصول لها

اخي الفاضل

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

هذه المكتبه موجوده في دليل نظام الويندوز بإسم (Scrrun.dll)

هذه المكتبة هي واحدة من أهم المكتبات المفيدة والعملية لأسترداد المعلومات المتعلقة بمحركات الأقراص و المجلدات والملفات وكذلك معرفة سمات معينة من محركات الأقراص والمجلدات والملفات حيث يمكن التحكم في هذه الكائنات.

قم بإضافة هذه المكتبة الى مراجع ومكتبات الأكسيس

1. في قاعدة البيانات المفتوحه اضغط على ALT+F11 للوصول الى محرر الأكواد VBE

2. اختر من القائمة Tools ثم اختر References ( المراجع والمكتبات )

قم بالبحث عن المكتبة Microsoft Scripting Runtime ثم قم بالتأشير عليها

للأنظمة 32 بت ستجدها في الدليل C:\windows\System32\scrrun.dll

للأنظمة 64 بت ستجدها في الدليل C:\windows\SysWOW64\scrrun.dll

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

مثال بالكود :

لمعرفة جميع الأقراص

On Error GoTo ErrorHandler
On Error Resume Next    

'Must set a Reference to the Microsoft Scripting Runtime Library (Scrrun.dll)

Dim fso As FileSystemObject, drv As Drive, drvSingle As Drive
Set fso = CreateObject("Scripting.FileSystemObject")

Debug.Print "--------------------------------------------"
'Loop through all Drives on the PC
For Each drv In fso.Drives
  Debug.Print "Drive Letter: " & drv.DriveLetter
  Debug.Print "  Available Space: " & Format$(drv.AvailableSpace, "#,#,#,#") & " bytes"
  Debug.Print "  Drive Type: " & fDetermineDriveType(drv.DriveType)
  Debug.Print "  File System: " & drv.FileSystem
  Debug.Print "  Free Space: " & Format$(drv.FreeSpace, "#,#,#,#") & " bytes"
  Debug.Print "  Is Drive Ready?: " & IIf(drv.IsReady, "Yes", "No")
  Debug.Print "  Drive Path: " & drv.Path
  Debug.Print "  Root Folder: " & drv.RootFolder
  Debug.Print "  Drive Serial Number: " & drv.SerialNumber
  Debug.Print "  Drive Share Name: " & drv.ShareName & IIf(Nz(drv.ShareName) = "", "Unavailable", drv.ShareName)
  Debug.Print "  Total Size of Drive: " & Format(drv.TotalSize, "#,#,#,#") & " bytes"
  Debug.Print "  Volume Name of Drive: " & IIf(Nz(drv.VolumeName) = "", "Unavailable", drv.VolumeName)
  Debug.Print "--------------------------------------------"
Next

راجع الروابط التالية للإستفاده

http://msdn.microsoft.com/en-us/library/aa164509(v=office.10).aspx

http://msdn.microsoft.com/en-us/library/aa711216(v=vs.71).aspx

بالتوفيق

الله يبارك فيكي اختي ام عهود

دوما نجدك عند الحاجة

شرح وافي وكافي

جعله الله في ميزان حسناتك

عذرا الموضوع مغلق

للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .