指定目录的目录列表代码,ASP代码库,德仔网

代码语言

代码分类

作者: / 发布于2011/1/5/ 569

<div>'************************************************** 
 '函数ID：[指定目录的目录列表] 
 '函数名：ListDirs 
 '作 用：指定目录的目录列表 
 '参 数：Dirname ---- 目录名（包括路径） 
 '返回值：目录列表字符串，之间用&ldquo;|&rdquo;相隔 
 '************************************************** 
 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 
 '************************************************** 
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　指定目录　

同语言下

可能有用的

贡献的其它代码Label