VB如何批量修改文件名？

dim s() as string

创新互联建站客户idc服务中心，提供光华机房服务器托管、成都服务器、成都主机托管、成都双线服务器等业务的一站式服务。通过各地的服务中心，我们向成都用户提供优质廉价的产品以及开放、透明、稳定、高性价比的服务，资深网络工程师在机房提供7*24小时标准级技术保障。

d=dir("d:\*.doc")

do until d=""

s=split(d,".")

s(ubound(s)-1)=s(ubound(s)-1) "B"

name "d:\" d as "d:\" join(s,".")

d=dir

loop

msgbox "批量修改文件名完毕！"

VB批量修改文件名

我有dir搜索指定目录所有文件的代码。改名也很简单，但是你的要求很模糊，如果有意思请详细说明要求，我给你代码，发消息即可。

如何用VB批量创建文件夹以及更改文件名

在程序所在文件夹创建10个文件夹，名字分别是1到10，再在每个文件夹中创建5个子文件夹，名字分别是1到5：

For i = 1 To 10

MkDir App.Path  "\"  i

For j = 1 To 5

MkDir App.Path  "\"  i  "\"  j

Next j

Next i

把程序所在文件夹的所有txt文件改名为1.txt、2.txt、3.txt.......n.txt：

d = Dir(App.Path  "\*.txt")

n = 1

Do Until d = ""

If d  n  ".txt" Then Name App.Path  "\"  d As App.Path  "\"  n  ".txt"

n = n + 1

d = Dir

Loop

vb批量修改文件名称

如果你单纯的就是改名的话，用下面的代码即可！用name语句就可以了！

Private Sub Command1_Click()

Dim i As Long

For i = 68 To 178

Name App.Path  "\2012XDF("  i  ").xls" As App.Path  "\2012XDF("  i - 1  ").xls"

Next

End Sub

VB如何批量更改文件名？

最简单的话采用VB自带的FileListBox控件来显示当前目录（配合driveListBox和DirListBox实现，这个你应该没问题吧）

然后循环读取filelistbox列表中各个文件的文件名，将文件名中的"_"替换为

"."即可，在利用VB的Name函数来改名

替换函数：Replace(FileStr,"_",".")

VB中如何批量修改文件名

API声明

Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Public Const FILE_ATTRIBUTE_ARCHIVE = H20

Public Const FILE_ATTRIBUTE_COMPRESSED = H800

Public Const FILE_ATTRIBUTE_DIRECTORY = H10

Public Const FILE_ATTRIBUTE_HIDDEN = H2

Public Const FILE_ATTRIBUTE_NORMAL = H80

Public Const FILE_ATTRIBUTE_READONLY = H1

Public Const FILE_ATTRIBUTE_SYSTEM = H4

Public Const FILE_ATTRIBUTE_TEMPORARY = H100

SetFileAttributes("文件名",FILE_ATTRIBUTE_NORMAL)

批量修改做个循环就行

分享名称：vb.net批量改文件名,vb批量修改文件名
本文地址：http://ybzwz.com/article/heejeh.html