Is there any software under DOS for batch renaming files and changing file attributes?
China DOS Union
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
中国DOS联盟论坛 » DOS软件下载 & 游戏分享 （下载室） » Is there any software under DOS for batch renaming files?
View 2,085 Replies 9
Original Poster
Posted 2005-04-23 00:00 · 中国 四川 德阳 电信
初级用户
★
Credits 113
Posts 3
Joined 2005-04-23 00:00
21-year member
UID 38509
Gender Male
Posts 3
Joined 2005-04-23 00:00
21-year member
UID 38509
Gender Male
Status Offline
Floor 2
Posted 2005-04-24 00:00 · 美国
系统支持
★★★★★★
“新DOS时代”站长
Credits 27,736
Posts 10,521
Joined 2002-10-09 12:00
23-year member
UID 9
Posts 10,521
Joined 2002-10-09 12:00
23-year member
UID 9
Status Offline
Yes, but can you explain specifically what kind of batch renaming and attribute changes you want to achieve?
Wengier - 新DOS时代
欢迎大家来到我的“新DOS时代”网站，里面有各类DOS软件和资料，地址：
http://wendos.mycool.net/
E-Mail & MSN: wengierwu AT hotmail.com （最近比较忙，有事请联系DOSroot和雨露，谢谢！）
欢迎大家来到我的“新DOS时代”网站，里面有各类DOS软件和资料，地址：
http://wendos.mycool.net/
E-Mail & MSN: wengierwu AT hotmail.com （最近比较忙，有事请联系DOSroot和雨露，谢谢！）
Floor 3
Posted 2005-04-29 00:00 · 中国 四川 德阳 电信
初级用户
★
Credits 113
Posts 3
Joined 2005-04-23 00:00
21-year member
UID 38509
Gender Male
Posts 3
Joined 2005-04-23 00:00
21-year member
UID 38509
Gender Male
Status Offline
What I mainly want to do is: automatically rename files in filename order into a form like mm001, mm002, etc.～
Floor 4
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
If you want, I'll write one for you!
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 5
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
This reply has been deleted by the author
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 6
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
It can only run in QuickBASIC and Microsoft BASIC Professional Development System, not tested
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 7
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
This reply has been deleted by the author
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 8
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
'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."
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."
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 9
Posted 2005-05-21 00:00 · 中国 山东 济宁 电信
中级用户
★★★
痴迷ＤＯＳ者
Credits 456
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Posts 570
Joined 2004-10-09 00:00
21-year member
UID 32281
Gender Male
Status Offline
Note: if you just press Enter directly, it will crash
DOS不是万能的，没有DOS是万万不能的
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
自古系统谁无死？留取胆清照汗青!uploadImages/20035317345478982.png
Floor 10
Posted 2006-10-29 03:34 · 中国 内蒙古 呼伦贝尔 联通
Forum Jump: