China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --
Union site: www.cn-dos.net　Forum site: www.cn-dos.net/forum

中国DOS联盟论坛
The time now is 2026-09-15 08:46

47,812 topics / 349,917 posts / today 0 new / 48,268 members

DOS软件下载 & 游戏分享（下载室） » Is there any software under DOS for batch renaming files?

Floor1　bandalg	Posted 2005-04-23 00:00
初级用户　Posts 3　Credits 113
Is there any software under DOS for batch renaming files and changing file attributes?

Floor2　Wengier	Posted 2005-04-24 00:00
系统支持　Posts 10,521　Credits 27,736
Yes, but can you explain specifically what kind of batch renaming and attribute changes you want to achieve?

Floor3　bandalg	Posted 2005-04-29 00:00
初级用户　Posts 3　Credits 113
What I mainly want to do is: automatically rename files in filename order into a form like mm001, mm002, etc.～

Floor4　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
If you want, I'll write one for you!

Floor5　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
This reply has been deleted by the author

Floor6　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
It can only run in QuickBASIC and Microsoft BASIC Professional Development System, not tested

Floor7　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
This reply has been deleted by the author

Floor8　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
'Change the following parameter to change the quantity const num=30 '(can rename at most 30 files) dim a(1 to num) as string for i=1 to num print ""Your file";i;":"; input "",a(i) if a(i)="" then exit for next i if i<num then i=i-1 Input "Name:";name$ nms$=right$(str$(num),len(str$(num))-1) for s=1 to i ss$=right$(str$(s),len(str$(s))-1) if len(ss$)<len(nms$) then ss$=string$(len(ss$)-len(nms$),"0"+ss$ name a(s) as name$+ss$ next i Print "Completed."

Floor9　defrag	Posted 2005-05-21 00:00
中级用户　Posts 570　Credits 456
Note: if you just press Enter directly, it will crash