asp怎么更改文件名

给你一个参考：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

给你参考一下...

<%

set upload=new upload_5xsoft

set file=upload.file("sf_upfile")

if file.fileSize<1 then

response.write"<script language=javascript>alert('您没有选择图片。~~~\n\n－－－－－请点击浏览按钮，从d出的窗口中选择要胡贺漏上传的图片。\n\n－－－－－然后点击上传按钮就可以把图片上传了...\n\n－拍银－－－－不过要注意图片的格式哦~~~')history.back()</script>"

response.end

end if

if file.fileSize<10 or file.fileSize>1000*1024 then

response.write "错误:上传的图片大小超过了限制! <a href='javascript:history.go(-1)'>退回上一步</a>"

response.end

end if

upfilename = split(file.FileName,".")

upfileext = upfilename(ubound(upfilename))

if upfileext<>"jpg" and upfileext<>"jpeg" and upfileext<>"gif" and upfileext<>"JPG" and upfileext<>"JPEG" and upfileext<>"GIF"then

response.write "错误裤烂:上传的文件格式不对! <a href='javascript:history.go(-1)'>退回上一步</a>"

response.end

end if

ufp="hyz_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&upfilename(ubound(upfilename))

file.saveas Server.mappath("upload/"&ufp)

%>

只要在腊芦cp命令中加入目标文件名即可。 1，打开终端，输入：touch a创建一个文件b。 2，将a文件移到桌面：cp a /home/username/b就可以复制并重命令文件。 3，如谨宴果不加目标文件名，则使用原来的文件名，如：cp a /home/username/。轮晌带

---