From d1568f748db9d4c7f8610337879fd388eed8d8c4 Mon Sep 17 00:00:00 2001
From: nestorsire <nsnestorramon@gmail.com>
Date: Mon, 21 Nov 2022 12:42:11 -0500
Subject: [PATCH] =?UTF-8?q?Depurando=20extracci=C3=83=C2=B3n=20de=20metada?=
 =?UTF-8?q?tos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/PaqueteSemanal/PaqueteSemanal.class.st | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/PaqueteSemanal/PaqueteSemanal.class.st b/src/PaqueteSemanal/PaqueteSemanal.class.st
index 5efd952..f15094f 100644
--- a/src/PaqueteSemanal/PaqueteSemanal.class.st
+++ b/src/PaqueteSemanal/PaqueteSemanal.class.st
@@ -20,7 +20,7 @@ PaqueteSemanal class >> location: anObject [
 PaqueteSemanal >> extractMetadataForFolder: subfolder [
 
 	| subfolderFiles extractMetadatos |
-	subfolderFiles := subfolder allChildren select: [:item | item  isFile and: [(item basename = '.DS_Store') not ]].
+	subfolderFiles := (self location / subfolder) allChildren select: [:item | item  isFile and: [(item basename = '.DS_Store') not ]].
 	subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
 	extractMetadatos := GtSubprocessWithInMemoryOutput new
 	command: '/usr/local/bin/exiftool';
@@ -42,6 +42,11 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
 
 ]
 
+{ #category : #accessing }
+PaqueteSemanal >> location [
+ ^ location
+]
+
 { #category : #accessing }
 PaqueteSemanal >> location: anObject [
 	location := anObject