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)
批量修改做个循环就行
假如一个文件为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
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
Name 语句
重新命名一个文件、目录、或文件夹。
语法
Name oldpathname As newpathname
oldpathname --- 原文件名
newpathname --- 新文件名
例如：
Name "闾揿皬骞虫椂浠e叏25绔_doc" As "闾揿皬骞虫椂浠e叏25绔.doc"
方法一：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