Fandom

Scratchpad

Segments: Shortcuts

215,866pages on
this wiki
Add New Page
Discuss this page0 Share

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.


Introduction

This article demonstrates simple scripts to turn DesktopX objects into shortcuts.


Drag and Drop Shortcut

Single Target

Insert the script below into an object. Drag and drop a file onto the object. Left-click to open the shortcut.

Dim FilePath

Sub Object_OnDropFiles(files)
	'If a number of files are selected, choose the first one
	getonefile= Split(files, "|")
	getfirstfile = LBound(getonefile)
	FilePath =  getonefile(getfirstfile)
End Sub

'--Go to selected target on L-click
Sub Object_OnLbuttonUp(x,y,dragged)
	If Not dragged Then 
		On Error Resume Next   
		Set Sh = CreateObject("WScript.Shell")
		Sh.Run (Chr(34)& FilePath & Chr(34))
		Set Sh = Nothing
	End If
End Sub

Multiple Targets

Dim gettargets

Sub Object_OnDropFiles(files)
	'Put files into array
	gettargets= Split(files, "|")
End Sub

'--Open targets on L-click
Sub Object_OnLbuttonUp(x,y,dragged)
	If Not dragged Then
		For x = 0 To UBound(gettargets)
			On Error Resume Next   
			Set Sh = CreateObject("WScript.Shell")
			Sh.Run (Chr(34)& gettargets(x) & Chr(34))
			Set Sh = Nothing
		Next
	End If
End Sub


Browse for Shortcut

Insert the script below. Right-click on object to browse for target. Left-click on object to open shortcut.

Dim FilePath

'--Go to selected target on L-click
Sub Object_OnLbuttonUp(x,y,dragged)
	If Not dragged Then 
		On Error Resume Next   
		Set Sh = CreateObject("WScript.Shell")
		Sh.Run (Chr(34)& FilePath & Chr(34))
		Set Sh = Nothing
	End If
End Sub

'--Browse for target on R-click
Function Object_OnRButtonUpEx(obj,x,y,dragged) 
  If Not dragged Then            
    Object_OnRButtonUpEx = True
    Opendialog      
  End If
End Function


'--Function to open folders dialog
Sub Opendialog
   selectedfile = System.FolderDialog("", "", &H4000)'--Browse for all folders
   If selectedfile <> "" Then '--Only set target if user selects something
     FilePath = selectedfile
   End If
End Sub

Comments/Suggestions

None right now.

Also on Fandom

Random wikia