asp文件夹重命名
⑴ 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上传重命名问题
1
上传的时候你用到input那个控件了吧
他有个属性
SaveAs
用法如下
inputFile.PostedFile.SaveAs(路径＋文件名);
文件名防止重名可以在前面加上时间日期
String
fileTime
=
DateTime.Now.Year.ToString()
+
DateTime.Now.Month.ToString()
+
DateTime.Now.Day.ToString()
+
DateTime.Now.Hour.ToString()
+
DateTime.Now.Second.ToString()
+
DateTime.Now.Minute.ToString()
+
DateTime.Now.Millisecond.ToString();
2
传文件后
将文件路径
文件名等信息插入数据库中
这样可以查询列表
文件删除
用File.Delete(路径＋文件名);
重命名用File.Move(path,
path2);
注意名空间
using
System.IO;
⑶ 用Asp代码修改某个文件夹的名称/使其自动重命名
用FSO
⑷ 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仅仅是目标文件名；
⑸ 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
⑹ asp文件重命名时出错,无权限
有可能这个文件是收到系统保护的，你可以尝试用将当前用户添加系统权限，（系统在计算机的所有组里拥有最高权限），然后更改文件名，然后将当前用户从system组去除（为了安全考虑，因为很多程序运行时拥有当前用户的权限，如果你当前用户使用系统组，会很不安全）
添加到system组，开始--运行---CMD ，输入命令，net localgroup systems username/add ，username是你当前登陆的用户名，这样就使你当前用户拥有了系统权限，然后改名，完了之后去权限，把add 改为del即可。输入命令时注意空格
或者你先看下系统进程，看有哪些进程有可能是阻碍你改名的，暂时关闭即可
⑺ 请教ASP重命名文件夹
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject") ' 创建 fso组件
fso.MoveFolder Server.MapPath("img"),Server.MapPath("pic") ' 用 movefolder方法移动文件夹，相当于改名。
⑻ asp文件批量重命名的问题
你用单引号把 On Error Resume Next 注释掉，调试
如果有错就会显示出来的了，你就可以对应着修改代码了。
在高度阶段不要用 On Error Resume Next 。