Create desktop shortcut

[bpd2000]

Sample to create desktop shortcut

new.rar

(606 Bytes) Downloaded 504 times

Topic moved from Forum en Español.

[esgici]

Sample to create desktop shortcut

Hi Dave

Thank you, nice and useful share

Regards

[Rathinagiri]

Fantastic!

Can we have a User Defined Function for the next version HFCL?

Code: Select all

*------------------------------------------------------------------------------*
FUNCTION CreateDesktopShortcut( cTarget, cTitle, cDescription, lFile )
*------------------------------------------------------------------------------*
	default lFile := .t.
	local WshShell := CreateObject("WScript.Shell")
	local DesktopFolder := WshShell:SpecialFolders("Desktop")
   local lSuccess := .f.
   
   do case
   case lFile
      FileShortcut := WshShell:CreateShortcut(DesktopFolder + "\" + cTitle + ".lnk" )
      FileShortcut:TargetPath := cTarget
      FileShortcut:Description := cDescription
      FileShortcut:WorkingDirectory := DesktopFolder
      FileShortcut:Save()
      lSuccess := .t.
   otherwise 
	   URLShortcut := WshShell:CreateShortcut(DesktopFolder + "\" + cTitle + ".url" )
	   URLShortcut:TargetPath := cTarget
      URLShortcut:Save()
      lSuccess := .t.
   endcase
  
	WshShell := Nil

RETURN lSuccess

[esgici]

Can we have a User Defined Function for the next version HFCL?

It will be nice and useful

Does will be more useful two separate function instead of one :

Code: Select all

FUNCTION DTopShCutFil( cTarget, cTitle, cDescription )
   LOCAL lSuccess := .F.
   IF FILE( cTarget )
       ...
       lSuccess := FILE( cTarget + ".LNK" )
   ENDIF
RETURN lSuccess

FUNCTION DTopShCutURL( cTarget, cTitle, cDescription )
    LOCAL lSuccess := .F.
    IF IsURL( cTarget )    // I don't know how will be this  IsURL() :(
        ...
        lSuccess := FILE( cTarget + ".URL" )
   ENDIF
RETURN lSuccess 

Regards

[bpd2000]

Fantastic!

Can we have a User Defined Function for the next version HFCL?

Addition to HFCL will be very useful to HMG users

[mol]

Very fine functions!
But, if I can ask, please, do not shorten the names of these function - old 10-char long names are the past!

[esgici]

old 10-char long names are the past!

Hi Marek,

You are right

Old men doesn't forget easly their old habits

By the way;

Code: Select all

  lSuccess := FILE( cTarget + ".LNK" )
   ...
  lSuccess := FILE( cTarget + ".URL" )

aren't correct

Please supply correct file name instead of cTarget .

Regards

[esgici]

My suggestion is :

MakShCut.zip

Two functions : MakeFDirShortCut() and MakeInternetShortCut()

(920 Bytes) Downloaded 432 times

Regards

[Rathinagiri]

Super cool Esgici.

[bpd2000]

New example with shortcut remove function from desktop