diff --git a/tools/common/crossfiles.pas b/tools/common/crossfiles.pas
index 2321f32..c73baca 100644
--- a/tools/common/crossfiles.pas
+++ b/tools/common/crossfiles.pas
@@ -513,7 +513,7 @@ procedure TFileExtractThread.Execute;
   A, B: string;
 begin
   try
-    ForceDirectory(IncludeTrailingPathDelimiter(FLocation));
+    ForceDirectories(IncludeTrailingPathDelimiter(FLocation));
     Path := ExtractFilePath(FFileName);
     FileName := ExtractFileName(FFileName);
     Folder := StrFirstOf(FileName, '.');