Umbenennen einer Datei mit VBScript

Question

Ich versuche, eine Datei umzubenennen und verwendet den folgenden Code, aber es scheint nicht zu funktionieren. Kann mir bitte jemand sagen warum? Ich verwende diesen Thread für Referenz Rename files without copying in same folder

FSO.GetFile ("MyFile.txt) .Name = "Hello.txt"

Answer 1

Sie die Datei mit FSO umbenennen kann es durch Bewegung. MoveFile Method

Dim Fso 
Set Fso = WScript.CreateObject("Scripting.FileSystemObject") 
Fso.MoveFile "A.txt", "B.txt" 

Answer 2

ich sehe nur einen Grund, Ihren Code, verpasste Zitat nach Dateinamen Zeichenfolge nicht:

VBScript:

FSO.GetFile("MyFile.txt[missed_quote_here]).Name = "Hello.txt" 

Answer 3

Rename filename by searching the last character of name. For example, 

Original Filename: TestFile.txt_001 
Begin Character need to be removed: _ 
Result: TestFile.txt 

Option Explicit 

Dim oWSH 
Dim vbsInterpreter 
Dim arg1 'As String 
Dim arg2 'As String 
Dim newFilename 'As string 

Set oWSH = CreateObject("WScript.Shell") 
vbsInterpreter = "cscript.exe" 

ForceConsole() 

arg1 = WScript.Arguments(0) 
arg2 = WScript.Arguments(1) 

WScript.StdOut.WriteLine "This is a test script." 
Dim result 
result = InstrRev(arg1, arg2, -1) 
If result > 0 then 
    newFilename = Mid(arg1, 1, result - 1) 
    Dim Fso 
    Set Fso = WScript.CreateObject("Scripting.FileSystemObject") 
    Fso.MoveFile arg1, newFilename 
    WScript.StdOut.WriteLine newFilename 
End If 



Function ForceConsole() 
    If InStr(LCase(WScript.FullName), vbsInterpreter) = 0 Then 
     oWSH.Run vbsInterpreter & " //NoLogo " & Chr(34) &  WScript.ScriptFullName & Chr(34) 
     WScript.Quit 
    End If 
End Function 

Answer 4

Ja können Sie das tun.
Hier bin ich eine Exe-Datei umbenennen Datei .txt

Umbenennen einer Datei

Dim objFso 
Set objFso= CreateObject("Scripting.FileSystemObject") 
objFso.MoveFile "D:\testvbs\autorun.exe", "D:\testvbs\autorun.txt"