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

احصل على جميع مسارات مجلدات الويندوز:

مغلق
بدأه faresxyz في 13 ديسمبر 2007 · 3 رد · 593 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

احصل على جميع مسارات مجلدات الويندوز:

الأخوة الأعزاء ....أرفق لكم اليوم برنامج يمكنكم من الحصول على مسار أي مجلد

من مجلدات الويندوز الخاصة, بدءاً من مجلد سطح المكتب,والنظام,والويندوز,ومروراً بمجلدات المستندات

والصور, والموسيقى...,وانتهاءاً بمجلدات ملفات الانترنت المؤقتة, والكوكيز, والمحفوظات.....الخ

البرنامج هذا يعتمد على دالة واحدة فقط من دوال الـAPI لكنها عظيمة في إمكانياتها الجبارة.

تقوم الفكرة على أساس إرسال قيمة الـCSIDLالخاصة بمجلد معين لتعيد لك بعدها مسار هذا المجلد.

أي شخص يقوم بتصميم برنامج, لا شك أنه سيحتاج هذه الدالة.

معلومة:هذه الدالة خاصة بالمكتبة ShFolder.dll ولا داعي للخوف فهذه المكتبة خاصة بميكروسوفت

وقد أرفقت هذا الملف مع البرنامج إحتياطاً ليس إلا لمن ليس معه ...

هذا والله ولي التوفيق

فارس واصل FaresNet22@hotmail.com

المرفقات: Get_All_Directories_.zip

FaresXyZ

#2

ألف شكر

#3

يمكن استعمال هذا السكريبت لارجاع جميع المجلدات الخاصة باسناد رقم للid

<code style="white-space: nowrap;"><code><font color="#000000">
 </font></code></code>Function GetSpecialFolder(id As Integer) As String
 Dim wsh As Object
 Set wsh = CreateObject("WScript.Shell")
 GetSpecialFolder = wsh.SpecialFolders(id)
 Set wsh = Nothing
 End Function

مثلا الرقم 0 يمثل مكان سطح المكتب لجميع المستخدمين

kuwhost-du3at_06.gif

#4

طبعا مع الشكر لصاحب الموضوع

أما هذه فتعيدها كلها

  Private Sub Command1_Click()
   Dim wsh As Object
   Set wsh = CreateObject("WScript.Shell")
   Dim c As Integer
   c = wsh.SpecialFolders.Count - 1
   Dim id As Integer
   For id = 0 To c
	  d Me.List1.AddItem (id & ":" & wsh.SpecialFolders(i))
   Next
End Sub

تم تعديل هذه المشاركة بواسطة blackeyes في 17 ديسمبر 2007 في 13:12

q45.jpg

broom.jpg

هذا الموضوع مغلق.

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

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

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

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

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