首页 > 代码库 > VBS 批量修改多个文件夹下的文字命名
VBS 批量修改多个文件夹下的文字命名
Function
FilesTree(sPath)
Set
oFso = CreateObject(
"Scripting.FileSystemObject"
)
Set
oFolder = oFso.GetFolder(sPath)
Set
oSubFolders = oFolder.SubFolders
For
Each
oSubFolder
In
oSubFolders
path=oSubFolder.Path
name=oSubFolder.name
Call
FilesTree1(path,name)
FilesTree(oSubFolder.Path)
‘递归
Next
Set
oFolder =
Nothing
Set
oSubFolders =
Nothing
Set
oFso =
Nothing
End
Function
Function
FilesTree1(sPath,sName)
Set
oFso = CreateObject(
"Scripting.FileSystemObject"
)
Set
oFolder = oFso.GetFolder(sPath)
Set
oSubFolders = oFolder.SubFolders
Set
oFiles = oFolder.Files
For
Each
oFile
In
oFiles
set f=oFso.getfile(oFile.Path)
f.name=sName&
".png"
Next
Set
oFolder =
Nothing
Set
oSubFolders =
Nothing
Set
oFso =
Nothing
End
Function
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。