ایجاد فایل متن از نوع Shortcut

[emprator2009]

سلام به همه دوستان عزیز و برنامه نویس:قلب:
من یک برنامه می خواستم که یک TextBox یا Rich TextBox داشته باشه.و یک کامند هم داشته باشه و وقتی کامند رو زدیم محتوی و نوشته های داخل کادر متن ما در درایو ویندوز مثلا C:\Program Files\Adobe به صورت یک فایل txt از نوع Shortcutدرست بشه و وقتی هم فرم رو بستیم اون فایلی که با شرتکات درست کرده بودیم حذف بشه.
مطمئن هستم که شما برنامه نویسان و دوستان عزیز می تونید این برنامه رو بنویسید یا بعضی ها هم که این برنامه ها رو دارند.پس منتظر برنامه های شما هستم.:خجالت:
ممنون :قلب:
موفق باشید:قلب:

[r0ot$harp]

دوست عزیز از این کد استفاده کنید . در ضمن بقیه کار رو خودتون باید انجام دهید .



Dim WshShell As Object, oShellLink As Object, strDesktop As String

Set WshShell = CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")

oShellLink.TargetPath = "C:\"

oShellLink.WindowStyle = 1

oShellLink.Hotkey = "CTRL+SHIFT+F"

oShellLink.IconLocation = "notepad.exe, 0"

oShellLink.Description = "Shortcut Script"

oShellLink.WorkingDirectory = strDesktop

oShellLink.Save

باتشکر احسان

[emprator2009]

ممنونم احسان جان می تونم یک درخواست کنم شما که کد رو دادی خیلی گیج شدم میشه برنامش رو ضمیمه کنی. مرسی ممنون

[emprator2009]

راستی یادم رفت بگم اگر درایو ویندوز یک کامپیوتر دیگه مثلا d باشه بازم برنامه اجرا میشه؟ آخه ممکنه ویندوز یک کامپیوتر دیگه c نباشه!!!!!

[emprator2009]

راستی یادم رفت بگم اگر درایو ویندوز یک کامپیوتر دیگه مثلا d باشه بازم برنامه اجرا میشه؟ آخه ممکنه ویندوز یک کامپیوتر دیگه c نباشه!!!!!

[r0ot$harp]

راستی یادم رفت بگم اگر درایو ویندوز یک کامپیوتر دیگه مثلا d باشه بازم برنامه اجرا میشه؟ آخه ممکنه ویندوز یک کامپیوتر دیگه c نباشه!!!!!


ممنونم احسان جان می تونم یک درخواست کنم شما که کد رو دادی خیلی گیج شدم میشه برنامش رو ضمیمه کنی. مرسی ممنون


راستی یادم رفت بگم اگر درایو ویندوز یک کامپیوتر دیگه مثلا d باشه بازم برنامه اجرا میشه؟ آخه ممکنه ویندوز یک کامپیوتر دیگه c نباشه!!!!!

دوست عزیز اگر من الان به شما کمک کنم هیچ فایده ای نداره و فقط کد رو پیدا کردین . پس من فقط باید راهنمایی کنم . در ضمن لطفا سوال های خودتون رو تویه پست ارسال کنید .



برای اینکه درایو ویندوز هم پیدا کنید می تونید از کد زیر استفاده کنید :


Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
As Long) As Long


private Function GetWindowsDirectory () As String

Dim strBuf As String * 256
Dim lngReturn_len As Long

lngReturn_len = GetWindowsDirectory(strBuf, Len(strBuf))
GetWindowsDirectory = Trim$(Left$(strBuf, lngReturn_len))
End Function



باتشکر احسان