asp重命名文件

将与ASP文件同目录下的File1.txt更名为NewFile1.txt。

程序如下：(MoveFile.asp)

<%

'==================================================

'源码：FSO移动文件，重命名文件示例脊巧行

'时间：2005年12月17日

'==================================================

Set fs = Server.CreateObject("Scripting.FileSystemObject")

SFile = Server.MapPath("File1.txt")

NFile = Server.MapPath("NewFile1.txt")

on Error Resume Next

fs.MoveFile SFile, NFile

If Err.Number = 53 Then

Response.Write File &"文件不存在！"

Response.End

Elseif Err.Number = 58 Then

Response.Write File &"文宽亩件已存在！"

Response.End

Elseif Err.Number <>0 Then

Response.Write "未知错误，错樱哗误编码：" &Err.Number

Response.End

Else

Response.Write "成功重命名文件！" &SFile &"为" &NFile&""

End If

%>

你可能理解错了，改名不是仿尘那样赋段大饥值的 file.FileName="&newname&"&file.FileName ‘这里改名，但是它直接就把“&newname&”加上去了。而不是加了newname的值 file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件 你把上面两行改成下面这样握返一行就行了 file.SaveAs Server.mappath(formPath&newname&file.FileExt) file.FileExt是文件后缀名，得看你upload_5xsoft.inc是否有这函数功能，应该都有的，没有的话就自己指定，或者就用客户端发送来的

set fso = Server.CreateObject("Scripting.FileSystemObjec")

set fd = fso.GetFolder("C:\WINDOWS")

for each f in fd.Files

'遍历文件夹下所有文件

Response.Write f.path &"掘旁举 | " &f.name &"<br />"

next

关键就是Folder对象的Files集合，表示目录下的所有判碧文件，类似的，启清还有Folder.SubFolders，子目录集合。

---