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