Help for this page

Select Code to Download


  1. or download this
        
$self->{msi_db}->AddData(Shortcut => [ 
                                 {'Shortcut' => StrToUKey($target_file
+), 
...
                                  'ShowCmd' => undef, 
                                  'WkDir' => undef, 
                                 }],
  2. or download this
    ' Get a Shell object
Dim WSHShell
...
MyShortcut.WorkingDirectory = "\\server\xyz"
MyShortcut.WindowStyle = 4
MyShortcut.Save