'函数名：ListDirs

'作 用：指定目录的目录列表

'参 数：Dirname ---- 目录名（包括路径）

'返回值：目录列表字符串，之间用“|”相隔

'**************************************************

Public Function ListDirs(ByVal Dirname)

Dim M_fso,fNS,fLS,Fnames,FnamesN

Set M_fso = CreateObject("Scripting.FileSystemObject")

If (M_fso.FolderExists(Dirname)) Then

Set fNS = M_fso.GetFolder(Dirname)

Set fLS=fNS.SubFolders

For Each FnamesN in fLS

Fnames=Fnames & FnamesN.name

Fnames=Fnames & "|"

Next

ListDirs=Fnames

End If

Set M_fso = Nothing

End Function