da gibt es Tk::DirSelect, mit dem ich aber mal unter Windows einige Probleme hatte. Deshalb habe ich in dem Script Tk-CreateImageWebGallery was eigenes gebastelt -> siehe meine HP -> Downloads -> Tk-CreateImageWebGallery