diff --git a/00_Sort_BI_Extracts.R b/00_Sort_BI_Extracts.R
index 888ede5b2..7cf7d0708 100644
--- a/00_Sort_BI_Extracts.R
+++ b/00_Sort_BI_Extracts.R
@@ -43,7 +43,7 @@ for (csv_file in csv_files) {
 
     # move file
     new_file_path <- file.path(financial_year_dir, basename(csv_file))
-    file.copy(csv_file, new_file_path)
+    fs::file_copy(csv_file, new_file_path, overwrite = TRUE)
     file.remove(csv_file)
     cat("Moved:", csv_file, "to", new_file_path, "\n")
   }
diff --git a/R/create_episode_file.R b/R/create_episode_file.R
index f909defef..95772658b 100644
--- a/R/create_episode_file.R
+++ b/R/create_episode_file.R
@@ -171,9 +171,7 @@ create_episode_file <- function(
   }
 
   if (write_to_disk) {
-    slf_episode_path <- get_slf_episode_path(year, check_mode = "write")
-
-    write_file(episode_file, slf_episode_path)
+    write_file(episode_file, get_slf_episode_path(year, check_mode = "write"))
   }
 
   return(episode_file)
diff --git a/copy_to_hscdiip.R b/copy_to_hscdiip.R
new file mode 100644
index 000000000..cce8f65e4
--- /dev/null
+++ b/copy_to_hscdiip.R
@@ -0,0 +1,35 @@
+dir_folder <- "/conf/sourcedev/Source_Linkage_File_Updates"
+target_folder <- "/conf/hscdiip/01-Source-linkage-files"
+if (!dir.exists(target_folder)) {
+  dir.create(target_folder, mode = "770")
+}
+folders <- c("1718", "1819", "1920", "2021", "2122", "2223")
+year_n <- length(folders)
+resource_consumption <- data.frame(
+  year = rep("0", year_n),
+  time_consumption = rep(0, year_n),
+  file_size_MB = rep(0, year_n)
+)
+
+for (i in 1:length(folders)) {
+  timer <- Sys.time()
+  print(stringr::str_glue("{folders[i]} starts at {Sys.time()}"))
+  folder_path <- file.path(dir_folder, folders[i])
+  old_path <- list.files(folder_path,
+    pattern = "^source-.*parquet",
+    full.names = TRUE
+  )
+  files_name <- basename(old_path)
+  new_path <- file.path(target_folder, files_name)
+  print(files_name)
+
+  fs::file_copy(old_path,
+    new_path,
+    overwrite = TRUE
+  )
+  resource_consumption$time_consumption[i] <- (Sys.time() - timer)
+  file_size <- sum(file.size(old_path)) / 2^20
+  resource_consumption$file_size_MB[i] <- file_size
+  print(stringr::str_glue("file size is {file_size}."))
+  print(resource_consumption$time_consumption[i])
+}