成品小说网站源码,如何在网站后台找到死链接,a站网址,wordpress 新页面目录
0 原始文件
1 step1:遍历文件夹#xff08;不包含子文件#xff09;内的文件数
2 step2: 遍历文件夹内的所有子文件夹的名字
3 step3 遍历文件夹的#xff08;含子文件#xff09;内的所有文件
4 step4 遍历文件夹的#xff08;含子文件#xff09;内的所有文…
目录
0 原始文件
1 step1:遍历文件夹不包含子文件内的文件数
2 step2: 遍历文件夹内的所有子文件夹的名字
3 step3 遍历文件夹的含子文件内的所有文件
4 step4 遍历文件夹的含子文件内的所有文件夹和文件 0 原始文件夹和文件情况 1 step1:遍历文件夹不包含子文件内的文件数
遍历文件夹内的文件数但是并不遍历子文件
Function file_dir1()fp C:\Users\Administrator\Desktop\ppp\*.*fn Dir(fp)Debug.Print fn 避免会少第1个文件Do While fn fn DirDebug.Print fnLoopEnd Function 2 step2: 遍历文件夹内的所有子文件夹的名字
遍历文件夹的所有子文件的名字可以遍历所有文件夹及其子文件夹只取得文件夹的名字不管文件
----------------step2---------------------------------------------
Sub Folder2()Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)确定根目录ff C:\Users\Administrator\Desktop\ppp遍历根目录下的子文件夹Dim folder As Object 当前正在遍历的文件夹Set folder fso.GetFolder(ff)Call SubProcessFolder2(folder)End SubSub SubProcessFolder2(folder)子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersDebug.Print subFolder.Path 如果还有更深层次的子文件夹则进行递归调用If subFolder.subfolders.Count 0 ThenCall SubProcessFolder2(subFolder)End IfNext subFolder
End Sub 3 step3 遍历文件夹的含子文件内的所有文件
遍历文件夹的且包含含子文件内所有文件 -------------step3---------------------------------------------Sub Folder3()Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)确定根目录ff C:\Users\Administrator\Desktop\ppp遍历根目录下的文件Call file3(ff)遍历根目录下的子文件夹Dim folder As Object 当前正在遍历的文件夹Set folder fso.GetFolder(ff)Call SubProcessFolder3(folder)End SubSub file3(folder)fp folder \*.*fn Dir(fp)Do While fn Debug.Print folder \ fnfn Dir() 这句话应该放在打印后面Loop
End SubSub SubProcessFolder3(folder)子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersCall file3(subFolder) 如果还有更深层次的子文件夹则进行递归调用If subFolder.subfolders.Count 0 ThenCall SubProcessFolder3(subFolder)End IfNext subFolder
End Sub4 step4 遍历文件夹的含子文件内的所有文件夹和文件
遍历文件夹的且包含含子文件内包含文件夹也包含文件
--------step4---------------------------------------------Sub Folder4()Dim fso As ObjectSet fso CreateObject(Scripting.FileSystemObject)确定根目录ff C:\Users\Administrator\Desktop\pppDebug.Print ff遍历根目录下的文件Call file4(ff)遍历根目录下的子文件夹Dim folder As Object 当前正在遍历的文件夹Set folder fso.GetFolder(ff)Call SubProcessFolder4(folder)End SubSub file4(folder)fp folder \*.*fn Dir(fp)Do While fn Debug.Print fn folder \ fnfn Dir() 这句话应该放在打印后面Loop
End SubSub SubProcessFolder4(folder)子文件夹Dim subFolder As ObjectFor Each subFolder In folder.subfoldersDebug.Print subFolder.PathCall file4(subFolder) 如果还有更深层次的子文件夹则进行递归调用If subFolder.subfolders.Count 0 ThenCall SubProcessFolder4(subFolder)End IfNext subFolder
End Sub
