(VBScript) Create Symbolic Link

Demonstrates how to create a symbolic (soft) link.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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).  

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set fac = CreateObject("Chilkat.FileAccess")

' Here we create a symbolic link to point to qa_data/hamlet.xml
' 
target = "qa_data/hamlet.xml"
symlink = "qa_output/symlink_hamlet.xml"
success = fac.SymlinkCreate(target,symlink)
If (success <> 1) Then
    outFile.WriteLine(fac.LastErrorText)
    WScript.Quit
End If

' Here we create a directory symbolic link.  The target is a directory (not a regular file)
target = "qa_data/xml/"
symlink = "qa_output/xml_dir"
success = fac.SymlinkCreate(target,symlink)
If (success <> 1) Then
    outFile.WriteLine(fac.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close