Extrayendo metadatos para todos los subfolders.

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 [