diff --git a/src/PaqueteSemanal/PaqueteSemanal.class.st b/src/PaqueteSemanal/PaqueteSemanal.class.st
index ca7d754..1feebde 100644
--- a/src/PaqueteSemanal/PaqueteSemanal.class.st
+++ b/src/PaqueteSemanal/PaqueteSemanal.class.st
@@ -16,6 +16,16 @@ PaqueteSemanal class >> location: anObject [
 	location := anObject 
 ]
 
+{ #category : #accessing }
+PaqueteSemanal >> extractMetadataForAllFolders [
+	| subfolders |
+	subfolders := self location children reject: [:each | each basename = '.DS_Store'].
+	subfolders do: [:each | 
+		self extractMetadataForFolder: each basename.
+	].
+	^ self metadataFolder
+]
+
 { #category : #accessing }
 PaqueteSemanal >> extractMetadataForFolder: subfolder [