SD Shortcuts
Average Rating: 9
Yours: -1
File Size: .09MB
Downloads Today: 2 Downloads Total: 3229

SD Shortcuts

Updated Feb 24, 2006 by Vad_M

Jeff T
Comment #1 Saturday, February 25, 2006 1:05 PM
Very useful!
Thank you.
Comment #2 Saturday, February 25, 2006 9:33 PM
I have a quick question. You know how it will export a file with all the shortcut info.
2|2|Cruzerlock 2|I:\Cruzerlock 2\Cruzerlock2.exe|n/a|n/a|n/a|n/a

The bolded part is where it gets the main file from. Is there a way like in desktop x to have it launch from the exe directory.
2|2|Cruzerlock 2|%exedir%\Cruzerlock 2\Cruzerlock2.exe|n/a|n/a|n/a|n/a

i tried it like this but it dosent work. i have the SD Shortcuts on my flash drive, and it has all my shortcuts on it. but when i plug it into another computer the file paths are different because its a different drive letter on another computer.

sorry i realy dont know how else to explain it.
Comment #3 Sunday, February 26, 2006 9:45 AM
To Mr jlaj1989:

Hi Jerry, It seems me you want too many from this small Button! (joke) The Button does not know what "%exedir%" is this .

So there are two ways to solve this problem:

1. The easy way: press in the Menu Settings the "Change Launch" command and enter the new path to a program that you want run from this Item.

2. The difficult way: you may add to the shortcut info a new parameter - "runfromflash" for example. Then you may add to the Button Script something like this:

Dim runfromflash,flash

Sub Object_OnStateChange(state)
If state="Command executed" Then
runfromflash=True '<== this is imitation of checking a given variable
End If
End Sub

Sub GetFlashDrive
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set allDrives = objFSO.Drives
'the prohibition on Floppy Drives checking
If objDrive<>"A:" And objDrive<>"B:" Then
For Each objDrive In allDrives
If objDrive.DriveType = 1 And objDrive.IsReady Then
'searching for available Removable drives
If LCase(objDrive.VolumeName) = "enter the name of your flash drive here" Then
'for entering the name use a little letters only
End If
End If
End If
Set allDrives = nothing
Set objFSO = nothing
If runfromflash Then
RunProgram(flash&"\Cruzerlock 2\Cruzerlock2.exe")
End If
End Sub

Sub RunProgram(thepath)
On Error Resume Next
Set objShell = CreateObject("WScript.Shell") (Chr(34)&thepath&Chr(34))
Set objShell = nothing
End Sub

However... This is not already a message but this is nearly an article.

Best Regards.
Comment #4 Sunday, February 26, 2006 3:22 PM
Thank you very much but where do i put this script. In with the script you wrote that came with SD Shortcuts. Ill play around with it for a while. Thank you
Comment #5 Wednesday, January 23, 2008 10:55 AM
�They are so cool

Please login to comment and/or vote for this skin.

Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:

  • Richer content, access to many features that are disabled for guests like commenting on the forums and downloading files.
  • Access to a great community, with a massive database of many, many areas of interest.
  • Access to contests & subscription offers like exclusive emails.
  • It's simple, and FREE!
Downloads remaining: 5
User Level: Visitor

Featured DesktopX Widgets

Popular DesktopX Widgets

Top DesktopX Widgets Skinners

Yesterday  |   Last 30 Days  |   All Time
1. RedneckDude 1829
2. Doubird 506
3. _Martin_ 466
4. lovely62 433
5. Tiggz 235
6. jaidaksghost 197
7. romanda 174
8. neophil78 166
9. Frogboy 158
10. Vad_M 142
11. Chasbo 133
12. NetaholicsAnonymous 108
13. Richard Mohler 94
14. adni18 92
15. jlaj1989 87