File is not shown in the folder generated via tcl script

I am trying to write a file using tcl scripting (Via VMD). when I type command "dir" on tk/tcl console, it shows file name which I am trying to generate. But when I tried to open that file manually in that working directory folder, it is not even shown in it.

Here is the piece of code.

set fp [open "input.txt" w+]puts $fp "test"close $fp