asp怎么更改文件名

asp中如何将更改文件的名字?相当于重命名.比如在"变形金刚"文件夹下有电影文件,电影名为"001.rmvb"和"002.rmvb",现在我获取了文件夹的名字"变形金刚"然后要将001.rmvb和002.rmvb更改名字为"变形金刚001.rmvb"和"变形金刚002.rmvb",用vbscript的代码怎么写?可以给些提示吗?小弟感激不尽!!!

给你一个参考：VBScript code
'创建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

For Each file In folders
get_folder_object(file)
Next
End Function
'获取随机文件名字
Function get_rand_name(nameExtend)
Dim fileName
Randomize
fileName = Int(rnd()*1000000)
fileName = change_number(fileName)
fileName = fileName &"."& nameExtend
get_rand_name = fileName
End Function
'改数字为字母
Function change_number(number)
Dim str
str = CStr(number)
Dim strArr
strArr = Array("a","b","c","d","e","f","g","h","i","j")
Dim strNew
strNew = ""
For i = 1 To Len(str)
If Mid(str ,i ,1) <> "" Then
strNew = strNew & strArr(CInt(Mid(str ,i ,1)))
End If
Next
change_number = strNew
End Function

'****************调用例子**********************
fileUpdate "E:\Movie" ,"com"

'销毁fso操作对象
Set fso = Nothing

response.addheader "content-disposition", "inline; filename="&title&".doc"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息