6 lines
146 B
Tcl
6 lines
146 B
Tcl
|
# Get the modification time:
|
|||
|
|
set timestamp [file mtime $filename]
|
|||
|
|
|
|||
|
|
# Set the modification time to ‘now’:
|
|||
|
|
file mtime $filename [clock seconds]
|