Extrayendo metadatos para todos los subfolders.

This commit is contained in:
nestorsire 2022-11-21 13:09:16 -05:00
parent 5984ff492c
commit e171bbd37a

View File

@ -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 [