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

أهلا بك بالمنتدى.

الصور لا تعمل و الفكرة غير مفهومة.

الصور تعمل بس يبيلك تضغط عليها ...

بس هذي الصور رفعتها علىا موقع اخر

الصوره الاولى .

الصوره الثانيه .

والفكره بسيطه هي ...

هو عمل مجلد يضم فيه امور عده مثل الشروحات والبرامج والاذكار والاحاديث والدروس .....الخ

بحيث البرنامج يختصرها احط العنوان في البرنامج اذا ضغط عليه يروح طوالي للمجلد حقه .

مثل رابط تشعبي في الموقع مو تحط الرابط يروح لك للمجلد الي تحدده انت ...؟

نفس الفكره بس ابيه على شكل برنامج يضغط يروح للمجلد حقه ...

هي فكره بس ماعرفت اوصلها مشكله بس ان شاءالله تكون فهمتها يارب ...

حمل البرنامج الي وضعته وشوف كيف الفكره حقته انا ابي نفسه ...

وشاكر لك التعاون .

أعمل Shellexecute لعنوان المجلد , كود الـ Shellexecute كاملا بتوقييعى.

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

اخي العزيز انتا بدك تفتح مجلد مثلا والا تفتح برنامج يعني تعمل RUN لبرنامج معين .......... ارجو الايضاح ...

اشكركم جميعأ على المساعدة ورد وليس غريب عليكم ........

بنسبه لعمل البرنامج فتح مجلد ، وليس تشغيل برنامج ..

ابي احط زر كومند بحيث اضع كود فيه بحث بأسم للمجلد الي ابي افتحه ويبحث في الجهاز عنه اذا حصله فتح المجلد ، مابي احط مسار معين يفتح المجلد لاني بأنشر البرنامج وابي اذا شغله الشخص وضغط علىا زر كومند يفتح المجلد المطلوب الي بحدد اسمه انا ، مثل الي بصوره ..

لاني بحط مجلدات كثيره في مجلد والبرنامج معاها وعمل البرنامج هو اختصار لعناوين المجلدات ،،

لاتني بحط ممكن 20 مجلد مختلفه ومابي يروح يدور عليها ويفتحه ابي برنامج يختصرها احط العناوين وذا ضغط على كومند عنوان يفتح له المجلد المطلوب .

ياليت وضحت الفكره .. وشاكر التعاون لكم .

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

ياليت توضيح بسيط ياخوي msayed2004

توني جديد في عالم البرمجه اعرف شوي في الاساسيات بس يعني ماعندي ذيك الخبره مثلكم .

حملت البرنامج الي في موضوعك قبل امس وحاولت يمين يسار يطلع فيه اخطاء ، بحثت في القسم عن الفكره وعن العمل ماحصلت التجأت للقوقل ولم اجد يعني خربانه من كل الجهات ....

هذا الاكود الي في برنامجك الي طرحته في حل المشكله ...

 

Option Explicit

Private Sub cmdBoot_Click()
ShellAnyFile Me, "C:\Boot.ini"
End Sub

Private Sub cmdCalc_Click()
ShellAnyFile Me, "Calc"
End Sub

Private Sub cmdCrap_Click()
ShellAnyFile Me, "Z:\Welcome.Hi", , , , True
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdFile_Click()
On Error GoTo Err_Trap
ShellAnyFile Me, txtPath.Text, , , , True
Exit Sub
Err_Trap:
MsgBox "Error occurred , No.: " & Err & " , Description : " & Error
End Sub

Private Sub cmdNotepad_Click()
ShellAnyFile Me, "Notepad"
End Sub

Private Sub Form_Load()
Me.Icon = Nothing
End Sub

ياليت توضح الطريقه وكيف اعدل عليه واخذ اي كود منها عشان اذا ضغط على كومند يبحث عن المجلد ويفتحه ....

اذا كان اسم المجلد الي ابيه يبحث عنه في الجهاز اسمه adkar

الأكواد دى ملهاش قيمة بدول الـ Module اللى بالمشروع , و من غير زعل أخى تعلم الأساسيات أولا مش تخش فى مشاريع على طول.

على العموم , الفكرة ببساطة أنك تحصل على مسار المجلد اللى فيه البرنامج و بعدين تضيفله باقى مسار المجلد , بمعنى أن لو البرنامج معاه مجلد آخر بأسم Applications هيبقى مسار المجلد ده هو مسار البرنامج مضاف اليه كلمة Applications

AFP = App.Path
If Right$(AFP, 1) <> "\" Then AFP = AFP & "\"
ShellAnyFile Me, AFP & "Application"

يعطيك العافيه ومافيه زعل بالعكس ناخذ النصيحه بكل اريحيه ....

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

حصلت الكود هذا

بستخدام Microsoft Shell controsl

Dim SH As New Shell
SH.Open "C:\Applications"

وفتح معي المجلد ...

بس انا مابي احدد اي مسار ابي احط مثلأ اسم المجلد Applicationsيبحث في الجهاز كله لين يطلعه ويفتحه ....

اعتقد وصلت لحل المشكله

على الرابط التالي ...

/index.php?showtopic=112857

بس لو فيه طريقه احدث واسرع منها والبحث في c و d واي قرص ثابت ياليت التوضيح

ساتخدمت الكود هذا ونفع معي

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
	ShellExecute Me.hwnd, vbNullString, "ضع هنا اسم الملف ومساره", vbNullString, "C:\", 1
End Sub

هذا يبحث بس في مجلدات الي في السي كيف اسوي اضافه وخليه يبحث في جميع الاقراص الثابته السي ودي واذا فيه كود اطور منه واسرع ياليت .....

ماقصرتم جميعأ الله يوفقكم ...

راجع الكود اللى فى مشاركتى اللى فاتت , هيفتح مجلد أسمه Applications لو موضوع فى نفس مكان البرنامج , أى كان المكان.

الله يجزاك خير تعبناك معنا :unsure:

بس الكود الي عطيتني جربته في الكومند وحطيت مجلد نفس الاسم ويوم اجي اشغله يطلع فيه خطاء .

شوف الصوره

فيه مشكله ..؟

ياليت توضح شوي ياطويل العمر وانا عارف اني تعبتك بس ابي اسوي مشروع اول مشروع ليَ .

الله يوفقكم جميعأ .

للمره الثانية كلمة ShellAnyFile لا قيمة منها بدون الموديول الذى يحتوى على هذه الوظيفة , يا أخى أقرأ الكود و تتبعه قبل نسخه.

أسم الموديول المطلوب ShellMod و موجود بمشروعى.