Shortcut Aplikasi Anda Pada Desktop

Tips membuat shortcut aplikasi anda pada windows desktop dengan menggunakan Visual Foxpro Untuk bentuk icon anda tentukan saat build app(.EXE)

oWsh= CREATEOBJECT("wscript.shell")
cDeskPath = oWsh.SpecialFolders("desktop")
oShort = oWsh.CreateShortcut(cDeskpath+"\FoxKu.LNK")
oShort.TargetPath = "c:\FoxKu.EXE"

oShort.Save


Smoga bermanfaat ya ...:D