关于Recursive Function - VB .NET

bearish

1st Folder里有2-subFolders和5-Files
    ----sub1Folder里有1-subFolder和2-Files
         ----subFolder里有1-File
    ----sub2Folder里有3-subFolder和8-Files
         ----sub1Folder里有2-Files
         ----sub2Folder里有1-File
         ----sub3Folder里有1-subFolder
               -----subFolder里有1-File

要如何 display folder 里的sub2folders 和 files 然后在 display sub3folders里的sub4folder 和files 直到最后的subLastFolder和LastFile
        'Display 1st Folder 里的 SubFolders
        For Each Directory As DirectoryInfo In Directories.GetDirectories
               Debug.Print(Directory.Name)
               For Each subDir as DirectoryInfo In Directory.GetDirectories
                    Debug.Print(subDir.Name)    '如果这样做的话，会有的subFolder里的files就无法display了
               Next
       Next

        'Display 1st Folder 里的 Files
        For Each File As FileInfo In Directories.GetFiles
            Debug.Print(File.Name)
        Next

========
如果SubFolders里又有 Folders和Files, 就不知如何继续下去了
不知哪位大大能给予提示

mokth

call :   
     DisplayFolder("C:\\myfolder")


     void DisplayFolder(string folder)
        {
            
            string[] dirs = Directory.GetDirectories(folder); // get all and sub dir of the folder path
            foreach (string dir in dirs)
            {
                Console.WriteLine(dir);
                DirectoryInfo curdir = new DirectoryInfo(dir);

                FileInfo[] files = curdir.GetFiles();  //get files in current directory
                foreach (FileInfo f in files)
                {
                    Console.WriteLine("   --"+f.Name);
                }
              
                DisplayFolder(dir); // get next directory

            }
        }

[ 本帖最后由 mokth 于 24-12-2008 12:00 PM 编辑 ]