⑴ ASP.net如何重命名文件夹
楼主的这个问题可以说是C#的一个缺陷吧。
System.IO.
Directory
.Move("D:\\a","D:\\aaa")
这种方式只要是该文件夹下有任何文件都会报错拒绝访问。
一般的解决方法是：目录，将拷贝到的目标地址设定成想要的文件名，然后删除原文件。
该方法在原文件夹下无
正在使用
的文件时是可行的。但是如果有文件正在使用，或者原文件比较大的话，处理起来也很麻烦。
最简单的解决方法：在
asp.net
中引用VB！
1.先在项目中添加引用：Microsoft.
VisualBasic
然后在所需使用的文档中加上using
Microsoft.VisualBasic.Devices;
命名空间
2.就下面两行
Computer
MyComputer
=
new
Computer();
MyComputer.
FileSystem
.
RenameFile
(FileName,
newFileName);
其中FileName是你所要重命名的文件的全路径，newFileName仅仅是目标文件名；
⑵ 100分 ASP修改文件名
<%
mdbFile="001.jpg"
dbFile=server.MapPath(mdbFile)
set fso=Server.CreateObject("Scripting.FileSystemObject")
set file=fso.GetFile(dbFile)
file.name="002.jpg"
%>
⑶ 请教如何用ASP实现文件拷贝并改名
只要在cp命令中加入目标文件名即可。 1，打开终端，输入：touch a创建一个文件b。 2，将a文件移到桌面：cp a /home/username/b就可以复制并重命令文件。 3，如果不加目标文件名，则使用原来的文件名，如：cp a /home/username/。
⑷ 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
%>
⑸ 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