Extract selected archives in a new folder if it contains more than one item#extract@disablenosel@filesonly@nodeselect@script VBScriptOption ExplicitDim cmd,src,selArchive,archiveItem,archiveEnum,index,targetFolderSet cmd = DOpus.Create.CommandSet src = DOpus.listers.lastactive.activetabcmd.RunCommand "Select ""Non archive"" Filter DESELECT"For Each selArchive In src.selected cmd.AddFile selArchive cmd.RunCommand "GetSizes" cmd.ClearFiles Set archiveEnum = DOpus.FSUtil.ReadDir(selArchive, False) If ((selArchive.metadata.other.filecount + selArchive.metadata.other.dircount) > 1) Then If Not (DOpus.FSUtil.Exists(selArchive.path & "\" & selArchive.name_stem)) Then cmd.RunCommand "CreateFolder " & """" & selArchive.name_stem & """" & " NOSEL" targetFolder = selArchive.path & "\" & selArchive.name_stem Else Do index = index + 1 If Not(DOpus.FSUtil.Exists(selArchive.path & "\" & selArchive.name_stem & " (" & index & ")")) Then cmd.RunCommand "CreateFolder " & """" & selArchive.name_stem & " (" & index & ")" & """" & " NOSEL" targetFolder = selArchive.path & "\" & selArchive.name_stem & " (" & index & ")" index = 0 Exit Do End If Loop End If Do While (Not archiveEnum.complete) Set archiveItem = archiveEnum.Next cmd.AddLIne "Copy " & """" & archiveItem & """" & " TO " & """" & targetFolder & """" Loop cmd.Run cmd.Clear Else Do While (Not archiveEnum.complete) Set archiveItem = archiveEnum.Next If (archiveItem.is_dir) Then If (DOpus.FSUtil.Exists(selArchive.path & "\" & archiveItem.name)) Then Do index = index + 1 If Not(DOpus.FSUtil.Exists(selArchive.path & "\" & archiveItem.name & " (" & index & ")")) Then cmd.AddLine "Copy " & """" & archiveItem & """" & " AS " & """" & archiveItem.name & " (" & index & ")" & """" & " TO {sourcepath$}" index = 0 Exit Do End If Loop Else cmd.AddLine "Copy " & """" & archiveItem & """" & " TO {sourcepath$}" End If Else cmd.AddLine "Copy " & """" & archiveItem & """" & " TO {sourcepath$} whenexists=rename" End If Loop cmd.Run cmd.Clear End IfNext