当前位置: 首页 > news >正文

长沙网站seo收费西安注册公司代理

长沙网站seo收费,西安注册公司代理,个人做外贸网站平台有哪些,wordpress会员目录 0 原始文件 1 step1:遍历文件夹(不包含子文件)内的文件数 2 step2: 遍历文件夹内的所有子文件夹的名字 3 step3 遍历文件夹的(含子文件)内的所有文件 4 step4 遍历文件夹的(含子文件)内的所有文…

目录

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 Sub

4 step4 遍历文件夹的(含子文件)内的所有文件夹和文件

  • 遍历文件夹的,且包含含子文件内
  • 包含文件夹
  • 也包含文件
'--------step4---------------------------------------------Sub Folder4()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")'确定根目录ff = "C:\Users\Administrator\Desktop\ppp"Debug.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

http://www.yayakq.cn/news/704255/

相关文章:

  • 福州做网站价格德阳建设局网站
  • 怎么做百度网站会显示图片在旁边wordpress评分杂志
  • 常州高端网站定制公司铜陵网站优化
  • 北京哪里制作网站wordpress搜索引擎优化
  • 如何实现企业网站推广的系统性易语言用电脑做网站服务器
  • 网站正在建设中 图片做h5网站
  • 深圳做网站的价格百度抓取网站图片
  • 商标设计网站是哪个沈阳网页设计制作
  • 合肥知名建站公司免费代理上网网站
  • 怎么建设官方网站台州网站外包
  • 做网站建设的有哪些外贸公司域名哪个网站申请比较好
  • 漳州市城乡和住房建设局网站全国企业信用信息系统
  • pathon能做网站开发吗圣辉友联网站建设
  • 网站推广只能使用在线手段进行astro wordpress
  • 网站开发是在电脑上打出来的资料么好用的ppt模板免费下载网站
  • 网站建设飠金手指科杰十五全影网的网站哪儿做d
  • 好的网站建设技术商城建站系统源码
  • hao123网站源码制作2015最新仿创意网站页面设计
  • 小型网站建设教程南昌做网站的公司哪家好
  • 网站建设服务好的商家专业营销网络推广哪家好
  • 网站收录和反链都正常关键词却没有排名的原因wordpress中国
  • 汉中做网站的公司电话大连网络工程
  • 北京网站维护微信小程序注册流程
  • 包装设计接单网站哪个网站的ppt模板最好
  • 网页制作的收获与体会wordpress后台seo优化教程
  • 网站开发合同模板下载长沙市网站开发
  • 上海新建设建筑设计有限公司网站wordpress软件下载插件
  • 在c盘做网站可以吗洛阳做网站的公司哪家好
  • 培训教育的网站怎么做在线生成固定悬浮导航的工具网站
  • 购物网站开发设计小型办公室装修效果图