hi,

I tried "copy document and its dependencies (VBA)" example macro, but i got error.

example code:

Set swApp = Application.SldWorks

' Source path and file: disk:\\one_folder_above_macro_folder\\Models

source = swApp.GetCurrentMacroPathName

source = Left(source, InStrRev(source, "\\") - 1)

source = Left(source, InStrRev(source, "\\")) + "Models\\"

sourcefile = "name_of_file.SLDASM"

' Target path: disk:\\macro_folder

target = swApp.GetCurrentMacroPathName

target = Left(target, InStrRev(target, "\\"))

I tried below code.

Set swApp = Application.SldWorks

' Source path and file: disk:\\one_folder_above_macro_folder\\Models

source = swApp.GetCurrentMacroPathName

source = Left(source, InStrRev(source, "D:\\Old_Folder\\") - 1)                   --error this line

source = Left(source, InStrRev(source, "D:\\Old_Folder\\")) + "Models\\"

sourcefile = "Assembly_01.sldasm"

' Target path: disk:\\macro_folder

target = swApp.GetCurrentMacroPathName

target = Left(target, InStrRev(target, "D:\\New_Folder\\"))