'说明：获取指定文件夹的子文件夹
'参数：
'   path:字符串,指定的文件夹路径
'   searchOption:布尔值,True 所有子文件夹; False 当前文件夹的子文件夹
'返回值：数组

'函数返回数组示例
Function GetFiles(path As String) As String()
    Dim oFso As Scripting.FileSystemObject
    Dim oFolder As Scripting.Folder
    Dim oFile As Scripting.File