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

[zahof]

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

امل للجميع الفائدة

ارجوا ممن يحمل البرنامج ويستفيد منه ان يعلق

ودمتم سالمين

اخوكم ZAHOF

_______________________________.rar

[helmy_foad]

كود جميل فعلاً

عيبة الوحيد

انة لا يترك مسافة بعد أن يكتب كلمة ( إختصار لبرنامج) فيتم لصقها بأسم قاعدة البيانات

مثلاص لو كان عندك قاعدة باسم : المكتبة

سيصبح أسم الإختصار

(إختصار لبرنامجالمكتبة )

لذا أعتقد انة يجب وضع مسافة بعد كلمة ( إختصار لبرنامج ) فى الكود التالى :

Function DDShortcut()

    Dim FF
   FF = Len(CurrentProject.Name) - 4
   Dim gg As String
   gg = " اختصار لبرنامج" & Left(CurrentProject.Name, FF)
    Call CreateDesktopShortcut(gg)

End Function

و لكن لقلة خبرتى فى هذة الامور

لا اعرف إن كان هذا سيفيد ام لا

تم تعديل فبراير 10, 2007 بواسطه helmy_foad

[zahof]

اخ فؤاد كلامك صح مية في المية

ولاحظت ذلك بعد ارفاق المثال

ZAHOF

[rudwan]

جهد مشكور يا أخ زاحوف