Zmienianie nazwy pliku przy użyciu VBScript

Question

Próbuję zmienić nazwę pliku i korzystałem z poniższego kodu, ale wygląda na to, że nie działa. Czy ktoś może mi powiedzieć, dlaczego? Używam tego wątku odniesienia Rename files without copying in same folder

FSO.GetFile ("myfile.txt) .Name = "hello.txt"

Answer 1

Można zmienić nazwę pliku używając FSO przesuwając go. MoveFile Method

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

Answer 2

widzę tylko jeden powód, Twój kod nie działa, nieodebrane cytat po nazwie pliku ciąg:

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

Tak, możesz to zrobić.
Oto jestem zmiana nazwy pliku .exe na .txt

zmienić nazwę pliku

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