home *** CD-ROM | disk | FTP | other *** search
/ Clickx 148 / Clickx_Magazine_148_Coverdisc_cd5.iso / pc / Yucom / intro.dxr / Scripts_4_ShortcutAccount.ls < prev    next >
Encoding:
Text File  |  1999-11-03  |  625 b   |  18 lines
  1. global gharddisk, gtaal
  2.  
  3. on shortcutAccount
  4.   desktop = baSysFolder("desktop")
  5.   if the platform contains "macintosh" then
  6.     baCreateFolder(gharddisk & "Program Files:Yucom:")
  7.     SourceFile = the moviePath & "install:mac:ebanking" & gtaal
  8.     DestFile = gharddisk & "Program Files:Yucom:ebanking"
  9.   else
  10.     baCreateFolder(gharddisk & "Program Files\Yucom\")
  11.     SourceFile = the moviePath & "install\pc\ebanking" & gtaal & ".exe"
  12.     DestFile = gharddisk & "Program Files\Yucom\ebanking.exe"
  13.   end if
  14.   baCopyFile(SourceFile, DestFile, "Always")
  15.   title = "Yucom e-banking"
  16.   baMakeShortcut(DestFile, desktop, title)
  17. end
  18.