'更改以下参数以改变数量
const num=30
'(最多改30文件)
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