Asp常用通用函数之指定目录的文件、目录列表

 '函数名：ListFiles
  '作 用：指定目录的文件列表
  '参 数：Dirname ---- 目录名（包括路径）
  '返回值：文件列表字符串，之间用“|”相隔
  '**************************************************
  Public Function ListFiles(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.Files
   For Each FnamesN in fLS
   Fnames=Fnames & FnamesN.name
   Fnames=Fnames & "|"
   Next
   ListFiles=Fnames
   End If
   Set M_fso = Nothing
  End Function 
  '**************************************************

 '函数名：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