只想读出某个文件夹下的子文件夹？

[flashasp]

<% '下面的代码能读出某个文件夹下的子文件夹和所有文件，现在只想读出某个文件夹下的子文件夹应该怎么改改？？？
Function ListAllitemOfFolder(ByVal strFolderPath)
Dim fs,fsFolder,oSubFolder,fsFiles,oFile

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fsFolder = fs.GetFolder(strFolderPath)

Response.Write "<UL>"
Response.Write "<LI>"
Response.Write "<FONT color=000099>" & fsFolder.Name & "</FONT>"
Response.Write "<UL>"
Response.Write "</UL>"
Response.Write "</LI>"

For Each oSubFolder In fsFolder.SubFolders
ListAllitemOfFolder(strFolderPath & "..\" & oSubFolder.Name)
Next

Response.Write "</UL>"
End Function
%>
<%= ListAllitemOfFolder(Server.Mappath("../")) %>