[问题求助] 【已解决】VBS如何在文件名中的数字前补零/补0？

本帖最后由 pcl_test 于 2016-7-15 18:28 编辑

For f = 1 to 1000
Set file = fso.OpenTextFile("j" & f & ".txt")
复制代码

上述代码指定1.txt--1000.txt文本

若1.txt--1000.txt文本名称该为0001.txt 0002.txt...1000.txt，这句代码如何修改？

1 评分人数

Rank: 8 Rank: 8

2楼

发表于 2013-11-3 20:56 | 只看该作者

第2行
Set file = fso.OpenTextFile("j" & Right("000" & f , 4) & ".txt")

1 评分人数

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考