VB中如何批量修改文件名

来源：百度知道 编辑：UC知道 时间：2024/05/22 08:54:41
文件夹存放的文件名如下：ABC.dwg ABC-2.dwg ABC-1.dwg；DEFC.dwg DEFC-3.dwg DEFC-2.dwg DEFC-1.dwg；…
现在有文件ABCnew.dwg,DEFCnew.dwg…
想把ABCnew.dwg文件拷入文件夹中，并命名为ABC.dwg，原来的ABC.dwg ABC-2.dwg ABC-1.dwg依次改名为ABC-3.dwg ABC-2.dwg ABC-1.dwg（类似的DEFC.dwg系列也这样修改）
各位达人，能不能提供点好的思路给小弟（如能附上代码不胜感激）
能不能详细点呢？光贴几行代码我又看不懂

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)

批量修改做个循环就行