تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لانشاء اختصار على سطح المكتب
#1
كاتب الموضوع : Boutemine Oualid

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


كود :
Option Explicit
'Add a reference to Windows Script Host Object Model (wshom.ocx).
Private Sub CreateShortCutOnDeskTop()
Dim Wsh As New WshShell
Dim DesktopPath As String
Dim FileName As String
Dim Shortcut As Variant
DesktopPath = Wsh.SpecialFolders("Desktop")
FileName = DesktopPath & "\MyAppli.lnk"
If FileExist(FileName) = False Then
Set Shortcut = Wsh.CreateShortcut(FileName)
With Shortcut
.TargetPath = App.Path & "\" & App.EXEName
.Description = "My Program"
.WindowStyle = 4
.Save
End With
End If
End Sub
Private Function FileExist(ByRef inFile As String) As Boolean
On Error Resume Next
Let FileExist = CBool(FileLen(inFile) + 1)
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة اختصار صفحة انترنيت للمفضلة RaggiTech 0 616 17-10-12, 04:39 PM
آخر رد: RaggiTech
  تغيير خلفية سطح المكتب RaggiTech 0 409 17-10-12, 02:18 PM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 275 17-10-12, 01:11 AM
آخر رد: RaggiTech
  لنسخ خلفية سطح المكتب إلى برنامجك RaggiTech 0 286 17-10-12, 01:02 AM
آخر رد: RaggiTech
  تغيير الصورة في خلفية سطح المكتب RaggiTech 0 352 17-10-12, 12:39 AM
آخر رد: RaggiTech
  اظهار واخفاء ايقونات سطح المكتب RaggiTech 0 446 17-10-12, 12:19 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم