27 lines
496 B
Plaintext
27 lines
496 B
Plaintext
|
form Copy selected files...
|
||
|
|
word Prefix
|
||
|
|
word Suffix _copy
|
||
|
|
boolean Keep_original 1
|
||
|
|
endform
|
||
|
|
|
||
|
|
total_objects = numberOfSelected()
|
||
|
|
for i to total_objects
|
||
|
|
my_object[i] = selected(i)
|
||
|
|
endfor
|
||
|
|
for i to total_objects
|
||
|
|
selectObject: my_object[i]
|
||
|
|
@copy()
|
||
|
|
new[i] = selected()
|
||
|
|
endfor
|
||
|
|
if total_objects
|
||
|
|
selectObject: new[1]
|
||
|
|
for i from 2 to total_objects
|
||
|
|
plusObject: new[i]
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
|
||
|
|
procedure copy ()
|
||
|
|
.name$ = extractWord$(selected$(), " ")
|
||
|
|
Copy: prefix$ + .name$ + suffix$
|
||
|
|
endproc
|