文章摘要
本文介绍了一段使用VBScript和Microsoft Scripting.FileSystemObject（即Scripting.FileSystemObject，简称FSO）的代码，用于从指定文件夹中获取和显示文件夹的结构信息。代码的主要功能如下：
1. 定义了目标文件夹路径，并通过FSO创建一个对象实例。
2. 获取目标文件夹的所有子目录，并在循环中显示每个子目录的名称。
3. 获取文件夹中的所有文件，并对每个文件获取其扩展名，将文件名和扩展名显示出来（扩展名已转换为小写）。
4. 整个代码实现了对指定文件夹及其内容的遍历和显示功能。
文章重点突出了代码的逻辑结构和对文件夹内容的处理方式，展示了如何利用VBScript进行文件操作。
Dim sFolder, sExt, message
sFolder=”F:\Programming\Applications\VBScript”
Dim sFolder, sExt, message
sFolder=”F:\Programming\Applications\VBScript”
Dim fs, oFolder, oFiles, oSubFolders
set fs=CreateObject(“Scripting.FileSystemObject”)
set oFolder=fs.GetFolder(sFolder) ‘获取文件夹
set oSubFolders=oFolder.SubFolders ‘获取子目录集合
for each folder in oSubFolders
message=”文件夹：” & folder
MsgBox message
Next
set oFiles=oFolder.Files ‘获取文件集合
for each file in oFiles
sExt=fs.GetExtensionName(file) ‘获取文件扩展名
sExt=LCase(sExt) ‘转换成小写
message=”文件名：” & file.Name & “, 扩展名：” & sExt ‘获得文件名(含扩展名,不含路径)和扩展名
MsgBox message
Next
© 版权声明
文章版权归作者所有，未经允许请勿转载。
