dzenc@hermes.ai.mit.edu (Daniel Zenchelsky) (03/25/89)
Ok. Heres a little script a threw together the other night after getting upset with the AmigaDOS 1.3 rename command... ------ CUT HERE ------- .key pat,TO IF <pat> EQ "" SKIP USAGE ENDIF IF <TO> EQ "" SKIP USAGE ENDIF failat 21 rename > nil: <pat> <TO> IF FAIL assign temp<$$>: <TO> IF NOT FAIL list >t:q<$$> <pat> lformat="rename *"%s%s*" temp<$$>:%s" IF NOT FAIL execute t:q<$$> ELSE echo "<pat> not found" ENDIF ENDIF ENDIF SKIP DONE LAB USAGE ECHO "" ECHO "mv - By Daniel Zenchelsky" ECHO "" ECHO " (1) mv [DIR]FILE [to] [DIR]FILE " ECHO " (2) mv FILE [to] DIR " ECHO " (3) mv PATTERN [to] DIR " ECHO "" LAB DONE failat 10 assign temp<$$>: ; single file rename, single file move, or multiple file move -------------- Any comments? Suggestions for improvement? Have Fun. -Dan +-----------------------------------------------------------+ | ______ | | || |o| Daniel Zenchelsky -- dzenc@hermes.ai.mit.edu | | ||___| | | | | _ | "Yes, but every time I try to see things your | | \_[]_|_| way, I get a headache." | | | +-----------------------------------------------------------+