if 0 {Richard Suchenwirth 2003-03-05 - In contrast with the more complex structure in desktop Windows shell links, symbolic links in Windows/CE are refreshingly simple: very brief text files with no trailing newline, consisting of three parts: a decimal number, a pound sign (#), and a string. I have observed other special formats, but when the string is enclosed in quotes, and the number matches the length of the quoted string, then the link is both human-readable and will be followed by CE's File Explorer.

So here's two routines to read and write such links:

---

}

 proc ce_writeLink {fn to} {
    set to \"[file native [file join [pwd]  $to]]\"
    set fp [open $fn w]
    puts -nonewline $fp [string length $to]#$to
    close $fp
 }

 proc ce_readLink fn {
    set fp [open $fn]
    set data [read $fp]
    close $fp
    regexp (.+)#(.+) $data -> l s
    if {$l != [string length $s]} {
       error "unknown format: $data"
    }
    file join [string range $s 1 end-1]
 }

if 0 {

---

Arts and crafts of Tcl-Tk programming - Category Windows - Category File }