查看完整版本: 关于Recursive Function

关于Recursive Function

1st Folder里有2-subFolders和5-FilesV Xwu7Xv"?
    ----sub1Folder里有1-subFolder和2-Files6v;B C,vMCc3YW/H
         ----subFolder里有1-FileR'{gZ]L b*R&\
    ----sub2Folder里有3-subFolder和8-Files_3pRS `G
Y/?
         ----sub1Folder里有2-Files
T8L{IA5`kg          ----sub2Folder里有1-File fc/{$ph N
         ----sub3Folder里有1-subFolder
3n'X"PL.RW                -----subFolder里有1-File Nv;X\`!HF3f6o

R6{Q3Mer#g 要如何 display folder 里的sub2folders 和 files 然后在 display sub3folders里的sub4folder 和files 直到最后的subLastFolder和LastFile
yW#Fkz4gl{         'Display 1st Folder 里的 SubFolders
z`(x4Y/x r u'|         For Each Directory As DirectoryInfo In Directories.GetDirectories
d\ M2wrF                Debug.Print(Directory.Name)
I'U:S.|v0hnEqts                For Each subDir as DirectoryInfo In Directory.GetDirectories q?2`%[)}lqy
                    Debug.Print(subDir.Name)    '如果这样做的话，会有的subFolder里的files就无法display了
$xG;A(nU!f6C U7P,Z m#Z,{                NextD#V,cJF5b
       Next
K:d'Ko0V7D9[-K3x'hS #n{\{9zFt+h/X#ydk[
        'Display 1st Folder 里的 Files
5v+Av8k%N&v         For Each File As FileInfo In Directories.GetFiles&Rlw4g Z`wk#f:T
            Debug.Print(File.Name);I'Z8hd {bS+{{*x
        Next
q9I v$Lh8k*@ B)[ W?f~Ir#`s$e
========;b&^$n8M*H
如果SubFolders里又有 Folders和Files, 就不知如何继续下去了:BEAN443: N7Xkm*HF5oon~1eC
不知哪位大大能给予提示:BEAN432:

你要自己写 function？?u6j/J~
为什么不要用别人已经写好的 class？L0uD ^/FHq#V
去 google search file and folder management using VB.net，应该可以搜到很多资料。
mn~fl&C V
D5sHDnF^&f~ [url]http://www.ssware.com/fileview/fileview.htm[/url]
Jt:f@.hY4T%T-X!s [url]http://www.topshareware.com/Filesystem-Dialogs-Library-download-62180.htm[/url]d9I
N v"Yq:u
[url]http://www.google.com/search?hl=en&rlz=1B3GGGL_enHK269HK269&q=file+and+folder+management+in+VB.net&btnG=Search[/url]

德国车和日本车4个方面比较

*** 作者被禁止或删除 内容自动屏蔽 ***