diff --git a/product/ERP5/Document/ExtFolder.py b/product/ERP5/Document/ExtFolder.py
new file mode 100755
index 0000000000000000000000000000000000000000..810415c59d15cd2020aaa3b966833ddd0d10ad63
--- /dev/null
+++ b/product/ERP5/Document/ExtFolder.py
@@ -0,0 +1,69 @@
+##############################################################################
+#
+# Copyright (c) 2005 Nexedi SARL and Contributors. All Rights Reserved.
+#                    Yoshinori Okuji <yo@nexedi.com>
+#
+# WARNING: This program as such is intended to be used by professional
+# programmers who take the whole responsability of assessing all potential
+# consequences resulting from its eventual inadequacies and bugs
+# End users who are looking for a ready-to-use solution with commercial
+# garantees and support are strongly adviced to contract a Free Software
+# Service Company
+#
+# This program is Free Software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#
+##############################################################################
+
+from AccessControl import ClassSecurityInfo
+
+from Products.ERP5Type import Permissions, PropertySheet, Constraint, Interface
+from Products.ERP5Type.XMLObject import XMLObject
+from Products.ExtFile.ExtFile import ExtFile
+from Products.ExtFile.ExtImage import ExtImage
+
+from zLOG import LOG
+
+class ExtFolder( XMLObject ):
+    """
+       ExtFolder stores sub-objects as ExtFile or ExtImage.
+    """
+
+    # Default Properties
+    property_sheets = ( PropertySheet.Base
+                      , PropertySheet.XMLObject
+                      , PropertySheet.CategoryCore
+                      , PropertySheet.DublinCore
+                      )
+
+    # CMF Type Definition
+    meta_type='ERP5 External Folder'
+    portal_type='External Folder'    
+    add_permission = Permissions.AddPortalContent
+    isPortalContent = 1
+    isRADContent = 1
+
+    # Declarative security
+    security = ClassSecurityInfo()
+    security.declareObjectProtected(Permissions.AccessContentsInformation)
+
+    security.declarePrivate('PUT_factory')
+    def PUT_factory( self, name, typ, body ):
+      """Return an ExtFile or ExtImage object.
+      """
+      major, minor = typ.split('/', 1)
+      if major == 'image':
+        return ExtImage(name)
+      return ExtFile(name)
+