⑴ 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