代码 复制 - 运行

Sub Bianli(Path) 'path 文件夹路径
    FoldPath=Server.Mappath(path)
    set fso = Server.CreateObject("Scripting.FileSystemObject")
    set fsoFolder=fso.GetFolder(FoldPath)
    set objSubFolders=fsoFolder.Subfolders
    for each objSubFolder in objSubFolders
        Response.Write objSubFolder.name
    Next

    Set GetFiles =fsoFolder.files
    For Each f in fsoFolder.files
        file_name=f.Name
        Response.Write file_name
    Next
    Set fsoFolder = Nothing 
    Set fso = Nothing 
End Sub