copy directories without files

[zu9]

Hi!
I want to copy the structure of directories to a new directory
e.g.: ./doc/2004/1250/ to ./doc/2005/1250/
renew the directory tree without copying the existing files of the previous year.
THanks a lot for help!
best regards
Matthias

 

[marsd]

Here is a start:

 proc recurlistdir {start} {
 global dirlist 
 foreach p [glob -nocomplain $start] {
                          if {[file isdirectory $p]} {
                               lappend dirlist $p
                               recurlistdir $p/*
                           }
                   }
return [llength $dirlist]
}

if {[recurlistdir] > 0} {
                         foreach name $dirlist {
                                 if {[regexp "2004" $name]} {
                                      regsub -all "2004" $name 2005 name
                                      file mkdir $name
                                 }
                          }
}