top of page
List the files in the folder by using TCL
Here is a simple script to list all the files in a folder with or without file extension. set folder [tk_chooseDirectory -title "Select a folder"] if {$folder eq ""} { puts "No folder selected." return } # Get file list set files [glob -nocomplain -directory $folder *] # FILES WITH EXTENSION foreach f $files { if {[file isfile $f]} { puts [file tail $f] } } # FILES WITHOUT EXTENSION foreach f $files { if {[file isfile $f]} { set name [file
Admin
Nov 271 min read
bottom of page