Привет всем,

Я переместить все файлы в дереве каталогов структуру единого справочника. Inorder бы знать, какие файлы из каталога, который, я должен добавить имя каталога с именем файла. Для этого я написал рекурсивную функцию, которая заключается в следующем
---------------------------------------------
datamover ()
(
CD $ 1
# OLD_DIR \u003d $ 2
Я в *
делать
если [-D $ I]
тогда
TMP_DIR \u003d $ I
datamover $ TMP_DIR
Эхо $ I
еще
М. В. .. $ I / $ 1_ $ I

если [-F $ 1 /]
тогда
повторить некоторые файлы все еще существуют
еще
CD ..
rmdir $ 1
FI

FI
готово
)
-------------------------------------------------- --------------
Когда я все же выполнить на структуру каталогов, как
DirA -> DirB -> DirL -> fileN
-> DirM -> fileO
---> DirC -> DirP -> заполнителя
-> DirQ -> Файлы

Эта программа дает выход в следующем
DirA -> DirB -> DirL_fileN
-> DirM_fileO
---> DirC -> DirP -> заполнителя
-> DirQ -> Файлы

и отладки ouptut заключается в следующем
-------------------------------------------------- ----
+ Эхо Dir Имя DirA
Dir Имя DirA
+ MAIN_DIR \u003d DirA
+ Datamover DirA
+ CD DirA
+ '['-D DirB ']'
+ TMP_DIR \u003d DirB
+ Datamover DirB
+ CD DirB
+ '['-D DirL ']'
+ TMP_DIR \u003d DirL
+ Datamover DirL
+ CD DirL
+ '['-D fileN ']'
+ MV fileN .. / DirL_fileN
+ '['-F DirL / ']'
+ CD ..
+ Rmdir DirL
+ Эхо fileN
fileN
+ '['-D DirM ']'
+ TMP_DIR \u003d DirM
+ Datamover DirM
+ CD DirM
+ '['-D fileO ']'
+ MV fileO .. / DirM_fileO
+ '['-F DirM / ']'
+ CD ..
+ Rmdir DirM
+ Эхо fileO
fileO
+ Эхо fileO
fileO
+ '['-D DirC ']'
+ MV DirC .. / DirA_DirC
М. В.: не может стат `DirC ': Нет такого файла или директории
+ '['-F DirA / ']'
+ CD ..
+ Rmdir DirA
rmdir: `DirA ': Нет такого файла или директории
-------------------------------------------------- ------------

Может ли кто-нибудь сказать мне WHT дело с кодом, и как это исправить?
выходной я требовать в этом случае будет
DirA -> DirB_DirL_fileN
-> DirB_DirM_fileO
-> DirC_DirP_fileR
-> DirC_DirQ_fileS

Спасибо заранее