asp fso 如何修改文件夹名和文件名

修改其实就是重新生成文件，且文件名和之前一样，类似文件的覆盖。

在文件夹或文件上单击右键,点击重命名,输入新的名字就行了!

<%'创建fso操作对象
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim FULL_extendName
'传入文件夹路径，修改下面文件的名称
Function fileUpdate(folderName ,extendName)
Dim folderObject
Set folderObject = fso.getFolder(FolderName)
FULL_extendName = extendName
get_folder_object folderObject
MsgBox "已成功修改"
End Function
'传入文件集合,更改文件名称
Function update_file_name(files)
Dim file
Dim newFile
For Each file In files
newFile = Left(file,InstrRev(file ,"\")) & get_rand_name(FULL_extendName)
fso.moveFile file , newFile
Next
End Function
'传入文件夹对象,调用_update_file_name
Function get_folder_object(folderObject)
Dim folsers ,files
Set folders = folderObject.subFolders
Set files = folderObject.files

update_file_name files