如何获取完整的子目录列表（包括子目录的子目录）？

我有数千个城市文件夹（例如city1, city2等等，但实际上命名为NewYork, Boston， ETC。）。每个文件夹还包含两个子文件夹：land and house.

所以目录结构是这样的：

current dictionary
  ---- city1
     ----- house 
         ------ many .xlsx files
     ----- land
  ----- city2
  ----- city3
  ···
  ----- city1000

我想获取所有子目录的完整列表并进行一些操作（例如import excel）。我知道有一个宏扩展函数：local list: dir来处理这个问题，但似乎只能返回first tier子目录，例如city_i，而不是那些更深层次的。

更具体地说，如果我想在所有家庭文件夹中执行操作，我需要什么样的工作流程？

我初步尝试编写代码来实现我的目标：

cd G:\Data_backup\Soufang_data
local folder: dir . dirs "*"
foreach i of local folder {
     local `i'_house : dir  "G:\Data_backup\Soufang_data\``i''\house" files "*.xlsx"

     local count = 1
     foreach j of local `i'_house {
        cap import excel "`j'",clear
        cap sxpose,clear
        cap drop in 1/1

        if `count'==1 {
          save `i'.dta, replace
            }
        else          {
         cap qui append using `i'
         save `i'.dta,replace
            }

       local ++count
     }
}

有问题的是：

``i'' 

无论如何，在目录中，我努力让它工作但没有成功。

I have 另一个帖子 https://stackoverflow.com/questions/34872508/how-to-tokenize-a-extended-macro-local-dir-in-stata/34875242?noredirect=1#comment57574055_34875242在这个项目上。

补充说明：

正如尼克所指出的，正是反斜杠造成了麻烦。然而，从这一点来看，我遇到了另一个问题。比如说，没有复杂的操作，我只想测试我的循环是否有效，所以我编写了以下代码片段：

set more off
cd G:\Data_backup\Soufang_data
local folder: dir . dirs "*"
foreach i of local folder {
     di "`i'"
     local `i'_house : dir  "G:\Data_backup\Soufang_data/`i'\house" files "*.xlsx"

     foreach j of local `i'_house {
        di "`j'"
     }
}

然而，屏幕上的结果是这样的：

city1
project100
project99
······
project1

看来代码只在第一个城市上循环一轮，但未能到达city2, city3等等。我怀疑这是由于我的本地写作有问题，尤其是在这一行中，但我不确定：

foreach j of local `i'_house

虽然不能解决您实际遇到的任何问题，但更简单的方法可能是使用filelist，来自 SSC（ssc install filelist).

一个例子可能是：

. // list all files
. filelist, directory("D:\Datos\RFERRER\Desktop\example")
Number of files found = 5

. 
. // strange way of tagging directories ending in "\house"
. // change at will
. gen tag = substr(reverse(dirname),1,6) == "esuoh/"

. 
. order tag

. list

     +----------------------------------------------------------------------------------------------+
     | tag   dirname                                                     filename             fsize |
     |----------------------------------------------------------------------------------------------|
  1. |   0   D:\Datos\RFERRER\Desktop\example/proj_1                     newfile.txt              0 |
  2. |   1   D:\Datos\RFERRER\Desktop\example/proj_2/house               somefile.txt             0 |
  3. |   0   D:\Datos\RFERRER\Desktop\example/proj_3/subproj_3_2         newfile2.txt             0 |
  4. |   1   D:\Datos\RFERRER\Desktop\example/proj_3/subproj_3_2/house   anothernewfile.txt       0 |
  5. |   1   D:\Datos\RFERRER\Desktop\example/proj_3/subproj_3_2/house   someotherfile.txt        0 |
     +----------------------------------------------------------------------------------------------+

然后，使用keep or drop，以变量为条件tag.

从图形上看，该目录如下所示：

（我使用的是 Stata 13。检查help string functions了解其他标记方式。）