• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 10 رای - 2 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: ساخت shortcut
حالت موضوعی
#1
سلام.چطور با داشتن ادرس یک فایل اجرایی میشه شورتکاتش هر جا که خواستیم بسازیم؟؟
 
پاسخ
#2
درود
خوب هستی ؟
یه مثال میزنم که روی دسکتاپ میسازی
بفرمایید : 
کد:
'Description:


'This vb6 code allows you to create a shortcut of any file on the desktop


'Please (Project > References > Add Microsoft Script RunTime
'Public By Parsicoders.com


Public Sub CreateShortcut(FilePath As String, ShortcutName As String)
Dim Filesys As New FileSystemObject
Dim WshShell As Object
Dim oShellLink As Object
Dim DesktopPath As String


Set WshShell = CreateObject("WScript.Shell")
DesktopPath = WshShell.SpecialFolders("Desktop")

 


Set oShellLink = WshShell.CreateShortcut(DesktopPath & "\" & ShortcutName & ".lnk")
If Filesys.FileExists(oShellLink) Then
    MsgBox ("Already Exist")
    Exit Sub
End If
   
oShellLink.TargetPath = FilePath
oShellLink.IconLocation = FilePath
oShellLink.WorkingDirectory = FilePath
oShellLink.Save


Set oShellLink = Nothing
Set WshShell = Nothing
End Sub

Private Sub Form_Load()
Call CreateShortcut("c:\amin.txt", "parsicoders")
End Sub
 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 5,168 01-28-2014، 01:24 PM
آخرین ارسال: sajad-kh
  آموزش ساخت اسپمر تبلیغاتی برای بلاگفا Amin_Mansouri 14 25,859 12-27-2013، 08:46 PM
آخرین ارسال: SnipeR
  ساخت برنامه پرتابل از برنامه های نوشته شده sajad-kh 2 4,766 09-15-2013، 06:14 AM
آخرین ارسال: Amin_Mansouri
Photo کمک برای ساخت نرم افزار amolhackers 7 10,014 01-19-2013، 11:19 PM
آخرین ارسال: amolhackers
Lightbulb ساخت منوهای چند ستونی Thewolf 0 2,619 08-27-2012، 02:04 PM
آخرین ارسال: Thewolf
  ساخت نوشته 3D در VB 6 Thewolf 0 2,567 06-20-2012، 07:35 PM
آخرین ارسال: Thewolf
  ساخت MsgBox دلخواه با VB 6 Thewolf 0 2,929 06-16-2012، 03:33 PM
آخرین ارسال: Thewolf
  طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6) Amin_Mansouri 1 5,453 06-12-2012، 11:40 PM
آخرین ارسال: Amin_Mansouri
  ساخت فایل EXE در ویبی 2005 keyhanifar 2 5,036 06-03-2012، 10:49 PM
آخرین ارسال: Ghoghnus
  سورس کد ساخت فایل پی دی اف با ویژوال بیسیک 6 Amin_Mansouri 0 6,188 01-05-2012، 05:18 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان