vb.net批量改文件名,vb批量修改文件名

VB如何批量修改文件名？

dim s() as string

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 "批量修改文件名完毕！"

相关问答

Q1: VB批量修改文件名

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

Q2: 如何用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

Q3: 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

Q4: VB如何批量更改文件名？

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

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

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

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

Q5: 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)

批量修改做个循环就行