كيف يمكنني معرفة المسار الذي يشير إليه الإختصار

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

Sub CreateProgManGroup(x As Form, GroupName$, GroupPath$)
	Dim i%, z%				'Declare required working variables
	Screen.MousePointer = 11  'hourglass mousepointer while working
	On Error Resume Next	  'Not good to have program crash :-)
	' Set LinkTopic & LinkMode parameters
	x.Label1.LinkTopic = "ProgMan|Progman"
	x.Label1.LinkMode = 2
	For i% = 1 To 10		  ' Give the DDE process time to take place
	  z% = DoEvents()
	Next
	x.Label1.LinkTimeout = 100
	' Actually create the group now
	x.Label1.LinkExecute "[CreateGroup(" + GroupName$ + Chr$(44) + GroupPath$ + ")]"
	' Reset label properties and mousepointer
	x.Label1.LinkTimeout = 50
	x.Label1.LinkMode = 0
	Screen.MousePointer = 0
End Sub


Sub CreateProgManItem(x As Form, CmdLine$, IconTitle$)
	Dim i%, z%				'Declare required working variables
	Screen.MousePointer = 11  'hourglass mousepointer while working
	On Error Resume Next	  'Not good to have program crash :-)
	' Set LinkTopic & LinkMode parameters
	x.Label1.LinkTopic = "ProgMan|Progman"
	x.Label1.LinkMode = 2
	For i% = 1 To 10		  ' Give the DDE process time to take place
	  z% = DoEvents()
	Next
	x.Label1.LinkTimeout = 100
	x.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ",,)]"
	' Reset label properties and mousepointer
	x.Label1.LinkTimeout = 50
	x.Label1.LinkMode = 0
	Screen.MousePointer = 0
End Sub


Private Sub Command1_Click()
CreateProgManGroup Me, "VB Library", "c:\windows"
CreateProgManItem Me, App.Path + "\library", "VB Library"

End Sub

أخي HnHn الظاهر إنك ما أستوعبت السؤال :blink: :blink: :blink:

أنا لم أطلب إنشاء إختصار على سطح المكتب :( :( :(

طلبت معرفة مساربرنامج الإختصار :rolleyes: :rolleyes: :rolleyes:

للرفع و الأهمية

للرفع

للرفع..

استخدام دوال مكتبة WScript.Shell سيحل الأمر ..

نفس الدالة التي تستخدم لإنشاء الاختصار CreateShortCut تستخدم لفتح ملف الاختصار إذا كان موجودا من قبل .. ومن ثم استخدام TargetPath لمعرفة مسار الاختصار ..

Set WShell = CreateObject("WScript.Shell")
Set objlnk = WShell.CreateShortCut("C:\FileName.lnk")
MsgBox "Path =" & objlnk.TargetPath

مجرد أنك تبعت مسار الأختصار كـ Command Line Argument للبرنامج , هتلاقى المسار الكامل جايلك عليه

الأخ Pharaonic_Guy كفبت ووفيت ولك الشكروالإحترام

وتمت الإجابة على السؤال

وإذا عندك أو عند باقي الاعضاء طريقة أخرى بدون مكتبة WScript.Shell

وذلك للإستفادة فقط

مشكورأخ msayed2004 وكما يقولون ذيادة الخير خيرين

لوتكرمت تشرح كلامك شوي ، ماذا تقصد ب Command Line Argument

بارك الله بكم جميعاً

Context_Menu_Get_Path.rar

الله يجزيك الخير أخي msayed2004 على ردك

سأدرس موضوعك الجميل..

المشكلة في طريقة الـ Command لو طبقتها في مشروع .. أنها لن تأتي بالمسار أتوماتيكيا ..

فيجب علي الأقل فتح ملف الاختصار يدويا ..

أنا كنت عامل مشروع من سنتين يقوم بفتح ملف الـ LNK بيناري وإتيان المسار منه ..

سأبحث عنه عندي , وإذا وجدته سأرفقه ..

مشكور كثير أخي Pharaonic_Guy

الله يقدرني على مساعدتك