(Tcl) Create Symbolic Link

Demonstrates how to create a symbolic (soft) link.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Chilkat supports symbolic links on both Windows and non-Windows operating systems.
# Note: On Windows, symbolic links and Windows shortcuts are two different things.
# On the Windows operating system, a process requires a special privilege to create
# a symbolic link (unless running as administrator).  

set fac [new_CkFileAccess]

# Here we create a symbolic link to point to qa_data/hamlet.xml
# 
set target "qa_data/hamlet.xml"
set symlink "qa_output/symlink_hamlet.xml"
set success [CkFileAccess_SymlinkCreate $fac $target $symlink]
if {$success != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    exit
}

# Here we create a directory symbolic link.  The target is a directory (not a regular file)
set target "qa_data/xml/"
set symlink "qa_output/xml_dir"
set success [CkFileAccess_SymlinkCreate $fac $target $symlink]
if {$success != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    exit
}

puts "Success."

delete_CkFileAccess $fac