createWindowsShortcut: Creates a Microsoft Windows Shortcut (.lnk file)

Usage

## S3 method for class 'default}(pathname, target, overwrite=FALSE, ...)':
createWindowsShortcutundefined

 Creates a Microsoft Windows Shortcut (.lnk file).

 pathname{The pathname (with file extension *.lnk) of the link
     file to be created.}
   target{The target file or directory to which the shortcut should
     point to.}
   overwrite{If TRUE, an existing link file is overwritten,
     otherwise not.}
   ...{Not used.}

 Returns (invisibly) the pathname.

 # Create Windows Shortcut links to a directory and a file
targets <- list(
  system.file(package="R.utils"),
  system.file("DESCRIPTION", package="R.utils")
)

for (kk in seq(along=targets)) {
  cat("Link #", kk, "
", sep="");

  target <- targets[[kk]];
  cat("Target: ", target, "
", sep="");

  # Name of *.lnk file
  pathname <- sprintf("%s.LNK", tempfile())

  tryCatch({
    # Will only work on Windows systems with support for VB scripting
    createWindowsShortcut(pathname, target=target)
  }, error = function(ex) {})

  # Was it created?
  if (isFile(pathname)) {
    cat("Created link file: ", pathname, "
", sep="");

    # Validate that it points to the correct target
    dest <- filePath(pathname, expandLinks="any")
    cat("Available target: ", dest, "
", sep="");

    file.remove(pathname)
    stopifnot(tolower(dest) == tolower(target))
  }
}

 [object Object]

 readWindowsShortcut()

 [1] Create a windows shortcut (.LNK file), SS64.com,
       http://ss64.com/nt/shortcut.html



file
IO
Usage

Arguments
