VB中如何批量修改文件名

API声明

10多年的临渭区网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整临渭区建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“临渭区网站设计”,“临渭区网站推广”以来，每个客户项目都认真落实执行。

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批量修改文件名

假如一个文件为1a.txt一个为1b.txt呢，该怎么改，你总得说清楚。改了第一个就改不了第二个了。

====================================

'给你一个代码，不用控件的，你没说遇到改后文件名一样怎么办，所以我的做法是文件名一样就跳过，如果不含数字的也跳过。

'*************************************************************************

'**模 块 名：Form1

'**说 明：厦门大学化学系 版权所有2009 - 2010(C)

'**创 建 人：吴志明(寒江雪)

'**日 期：2009-03-10 19:15:18

'**联系方式：verywzm@163.com

'**主 页：

'**描 述：

'**版 本：V1.0.0

'*************************************************************************

Private Sub Command1_Click()

On Error GoTo ToExit '打开错误陷阱

'------------------------------------------------

Dim FileName, NewFileName As String

FileName = Dir("C:\temp\", vbReadOnly + vbHidden + vbSystem + vbNormal)

Do While Not FileName = ""

NewFileName = NUM(FileName)

If NewFileName "" And Left(NewFileName, 1) "." Then

Name "C:\temp\" FileName As "c:\temp\" NewFileName

End If

FileName = Dir()

Loop

'------------------------------------------------

Exit Sub

'----------------

ToExit:

Resume Next

End Sub

Private Function NUM(ByVal strTest As String) As String

Dim strExtend As String

Dim strRet As String

Dim bytArray() As Byte

Dim intcount As Integer

If Len(strTest) 3 Then

If Mid(strTest, Len(strTest) - 3, 1) = "." Then strExtend = Right(strTest, 4)

End If

bytArray = strTest

For intcount = 0 To UBound(bytArray)

If bytArray(intcount) = Asc("0") And bytArray(intcount) = Asc("9") Then

strRet = strRet + Chr(bytArray(intcount))

End If

Next

strRet = strRet + strExtend

NUM = strRet

End Function

==================================

目录要任意的话把代码中"C:\temp\"换掉就好了嘛，比如换成text1.text

VB里如何批量修改文件名

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fd = FSO.GetFolder("E:\") '在这句中更改文件夹

For Each f In fd.Files

If LCase(Right(f.Name, 4)) = ".mp3" Then Name f.Path As f.ParentFolder "\" Right(f.Name, Len(f.Name) - 3)

Next

VB如何批量更改文件名？

Name 语句

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

oldpathname --- 原文件名

newpathname --- 新文件名

例如：

Name "闾揿皬骞虫椂浠e叏25绔_doc" As "闾揿皬骞虫椂浠e叏25绔.doc"

用VB批量重命名文件，如何实现？

方法一：Dim fpPrivate Sub refilename(folderspec)Dim fs, f, f1, fc, sm, hzSet fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fc

hz = Mid(f1.Name, InStrRev(f1.Name, "."))

Name f1 As fp "20101007-" hz

NextMsgBox "修改完成"End SubPrivate Sub Command1_Click()fp = "E:\emot\xhh\"'这里设置文件夹路径，根的需要来修改

If Right(fp, 1) "\" And Right(fp, 1) "/"

Then fp = fp "\"Call refilename(fp)

’调用上面的自定义函数，改名End Sub........

方法二： '将f:\123\文件下的txt文件改名

Dim files() As String '用于贮存文件名

Dim length As Integer = 0 'files数组长度

Dim fileName As String = Dir$("f:\123\*.txt") '得到第一个.txt文件的文件名

'Dim g As Graphics = Me.CreateGraphics

Do While fileName ""

'g.DrawString(length, Font, Brushes.Red, length * 10, length * 10)

ReDim Preserve files(length)

files(length) = fileName

length = files.Length

fileName = Dir$() '得到下一个.txt文件的文件名

Loop

For i = 0 To length - 1

Dim oldfileName As String = "f:\123\" + files(i)

Dim newfileName As String = "f:\123\" + "20101007_"+ files(i）

Rename(oldfileName, newfileName) '修改文件名

Next

分享题目：vb.net批量改文件名 win批量改文件后缀
当前链接：http://scgulin.cn/article/hgiepg.html