FSO 遍历文件夹和文件
来源:互联网 发布:excel 数据左上角 编辑:程序博客网 时间:2024/04/30 07:00
Attribute VB_Name = "遍历文件夹和文件"
Option Explicit
Public Sub 遍历文件夹和文件(sFolder As String)
Dim fs As Object
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
File_Folder_List (fs.GetFolder(sFolder))
Set fs = Nothing
End Sub
Private Sub File_Folder_List(df As Object)
'循环处理文件集合
Dim objFile As Object, objSubFolder As Object
'文件集合
For Each objFile In df.Files
'
'
'文件处理过程
'
'
Next objFile
Set objFile = Nothing
'文件夹集合
For Each objSubFolder In df.SubFolders
'
'
'文件夹处理过程
'
'
File_Folder_List objSubFolder '递归循环处理文件夹
Next objSubFolder
Set objSubFolder = Nothing
End Sub
- FSO 遍历文件夹和文件
- 遍历文件夹和文件
- C#遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- python遍历文件夹和文件
- cocos2dx遍历文件夹和文件
- c#遍历文件夹和文件
- go遍历文件夹和文件
- ASP.NET中遍历文件夹和文件
- Qt递归遍历文件夹和文件目录
- 【python系列】python 遍历文件夹和文件
- WMI 的使用
- linux shell 字符串操作(长度,查找,替换)详解
- Android布局
- Mule的安装配置
- QT浏览器学习之一:QWebView
- FSO 遍历文件夹和文件
- 该公司笔试题就1个,要求在10分钟内作完。 题目如下:用1、2、2、3、4、5这六个数字,写一个main函数,打印出所有不同的排列, 如:512234、412325等,要求:"4"不能在第三位,"3"与"5"不能相连。
- 试一下好不好用
- CJK Unicode Table ( UNICODE中文字符集 )
- 递归遍历文件夹&读取ini文件&获取ini的全部key
- 查汉字的区位码
- [转]让Editplus自动格式化js、css、html
- flex管理声音文件的办法
- 深入解析Close()和Dispose()的区别