asp fso操作类(2)

日期：2020-05-13 栏目：程序人生浏览：次

    End Sub

    Public Function IsFolder(ByVal Str)
        IsFolder = FileSystemObject.FolderExists(Str)
    End Function


    Public Function ShowFolder(ByVal Str)
        Dim Obj_Folder,Obj_File
        Set Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
        Set ShowFolder = Obj_Folder.Files
        Set Obj_Folder = Nothing
    End Function

End Class
%>