السلام عليكم ورحمة الله وبركاته
هل بالامكان الحصول على العناوين الموجودة بمجلد المفضلة داخل الويندوز .
وشكرا
هل يمكن الوصول لمجلد المفضلة
مغلق
تحية طيبة يمكنك الوصول الى مسار مجلد المفضلة عن طريق هذا الكود
'اذهب الى قائمة Project ثم Refernce ثم اختر vb-friendly shell interface ثم اكتب هذا الكود
Public Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long Public Declare Function SHGetPathFromIDListA Lib "Shell32" (ByVal pIdl As Long, ByVal pszPath As String) As Long Public Declare Function SHGetMalloc Lib "Shell32" (ByRef pMalloc As IVBMalloc) As Long Public Enum SpecialFolderIDs sfidDESKTOP = &H0 sfidPROGRAMS = &H2 sfidPERSONAL = &H5 sfidFAVORITES = &H6 sfidSTARTUP = &H7 sfidRECENT = &H8 sfidSENDTO = &H9 sfidSTARTMENU = &HB sfidDESKTOPDIRECTORY = &H10 sfidNETHOOD = &H13 sfidFONTS = &H14 sfidTEMPLATES = &H15 sfidCOMMON_STARTMENU = &H16 sfidCOMMON_PROGRAMS = &H17 sfidCOMMON_STARTUP = &H18 sfidCOMMON_DESKTOPDIRECTORY = &H19 sfidAPPDATA = &H1A sfidPRINTHOOD = &H1B sfidProgramFiles = &H10000 sfidCommonFiles = &H10001 End Enum Public Function GetPath(SFID As SpecialFolderIDs) As String Dim oMalloc As IVBMalloc, sPath As String, IDL As Long, SS As Long SHGetSpecialFolderLocation 0, SFID, IDL sPath = String$(255, 0) SHGetPathFromIDListA IDL, sPath SHGetMalloc oMalloc oMalloc.Free IDL SS = InStr(1, sPath, Chr(0)) sPath = Left(sPath, SS - 1) GetPath = sPath End Function private sub Command1_Click() text1.text=getpath(sfidFAVORITES(
ارجو اعلامى بالنتيجة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
المتميز كتب:
ستجده فى هذا المسار
D:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
باسم VBSHELL.TLB
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
تفضل هذا المثال البسيط اتمنى ان تجد فيه ماتريد
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اخ محمد هذا الكود يوضح موقع مجلد المفضلة !
انا اريد ان يعرض لي الاسماء الموجودة بالمفضلة مع ارتباطاتها ؟
هذا الموضوع مغلق.