From 3120ba68ad0006495126acd9fca20ea5b97da1f1 Mon Sep 17 00:00:00 2001
From: Ivor Townsend <ivor.townsend@gmail.com>
Date: Thu, 2 Dec 2021 09:49:05 +0000
Subject: [PATCH] fix: correct target path. Closes #100

---
 base/mp_copyfolder.sas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/base/mp_copyfolder.sas b/base/mp_copyfolder.sas
index dfbed16..0800857 100644
--- a/base/mp_copyfolder.sas
+++ b/base/mp_copyfolder.sas
@@ -55,7 +55,8 @@
   /* create folders and copy content */
   data _null_;
     set work.&tempds;
-    filepath2="&target/"!!substr(filepath,%length(&source)+2);
+    if _n_ = 1 then dpos+sum(length(directory),2);
+    filepath2="&target/"!!substr(filepath,dpos);
     if file_or_folder='folder' then call execute('%mf_mkdir('!!filepath2!!')');
     else do;
       length fref1 fref2 $8;