ASP 修改文件名稱的兩種經典方法與 FileSystemObject 詳解

場景需求

在 ASP 中將現有文件 d:\files\test.asp 重命名為 new.asp，路徑不變。提供兩種標準方法。

方法一：Name 屬性直接修改

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("d:\files\test.asp")
f.Name = "new.asp"
newName = f.Name
Response.Write newName ' 輸出：new.asp

方法二：MoveFile 方法移動重命名

Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.MoveFile "d:\files\test.asp", "d:\files\new.asp"

Name 屬性完整語法

object.Name [= newname]
參數：
  object - 必需，File 或 Folder 對象
  newname - 可選，新名稱字符串

綜合示例：獲取文件完整信息

Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub

注意事項

• 目標文件名若已存在，MoveFile 會報錯，Name 屬性賦值亦會失敗
• 需確保進程對目錄有寫入權限
• FileSystemObject 需服務器啟用腳本運行權限

擴展：批量重命名模式

Sub BatchRename(folderPath, oldExt, newExt)
    Dim fso, folder, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderPath)
    For Each file In folder.Files
        If fso.GetExtensionName(file.Name) = oldExt Then
            file.Name = fso.GetBaseName(file.Name) & "." & newExt
        End If
    Next
End Sub