大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把D:\test\目录下的所有jpg文件重命名为pic###.jpg的代码:
成都创新互联主营崇义网站建设的网络公司,主营网站建设方案,重庆App定制开发,崇义h5小程序开发搭建,崇义网站营销推广欢迎崇义等地区企业咨询
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
For Each f In fd.Files
If LCase(f.ShortName) Like "*.jpg" Then
f.Name = "pic" Format(i, "000") ".jpg"
i = i + 1
End If
Next
如果文件名已确定,可以用Set f=fs.GetFile("[完整路径和文件名]"),然后用f.Name="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚,“已知文件名的若干文件”到底是什么样的文件名,有没有什么规律?是否在同一文件夹下?或者是否已将文件名存放在一个字符串数组中?不说清楚别人怎么能帮你,只能给你一个实现的思路了
.or Example:
1.txt文件内容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 输入方式打开原文件 1.txt;
2 输出方式打开新文件 2.txt;
3 逐行 Line Input 从 1.txt 中读数据,Print 写入 2.txt,直至要修改的行;
4 丢弃从 1.txt中读出的要修改的行,将新内容行写入 2.txt;
5 仿照第 3 步,将其余的行从 1.txt 复制到 2.txt。
6 关闭两个文件
7 删除1.txt,将 2.txt 的文件名改为原来 1.txt 的。
涉及的知识有两大块:
一,用VB.NET读取数据表数据。
二,使用VB.NET修改文件名。
在解决方案资源管理器中,单击My Project,改程序集名称,重新启动程序,就可以了。
给我加分吧。