MSFN Forums > renaming a file using VBS?

Full Version: renaming a file using VBS?

MSFN Forums > Coding, Scripting and Servers > Programming (C++, Delphi, VB, etc.)

joelee

Apr 11 2005, 08:50 AM

Hi all

I'm new to scripting and I feel like a real id*** asking this really simple question.
But all i want to do is RENAME A FILE!
How do I bloody do this?

cheers in advance !

CODE

Dim fso, SomeFile, bolFileExists
Set fso = CreateObject("Scripting.FileSystemObject")

fileName = "testfile.txt"
Set SomeFile = fso.CreateTextFile(fileName)

Name SomeFile As "testfile_new.txt"

DiGGiTY

Apr 11 2005, 09:05 AM

Here you go:

Renames the file C:\Scripts\Toggle_Service.vbs to C:\Scripts\Toggle_Service.old.

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Cim_Datafile where Name = " _
& "'c:\\scripts\\toggle_service.vbs'")
For Each objFile in colFiles
errResult = objFile.Rename("c:\scripts\toggle_service.old")
Wscript.Echo errResult
Next

joelee

Apr 11 2005, 09:25 AM

I got the same code from http://msdn.microsoft.com/library/default....and_folders.asp as well.

But to just rename a single file takes half a dozen lines of code?
Thanks any way...

joelee

Apr 11 2005, 09:31 AM

In the referencing MSDN page with the above code, it says that I must put in the absolute path. Is there a way to rename a file using relative rather absolute referencing?

IcemanND

Apr 11 2005, 11:04 AM

CODE

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile "testfile.txt", "myfile.txt"

gunsmokingman

Apr 11 2005, 03:10 PM

Thanks That Was Usefull To Me

joelee

Apr 12 2005, 04:21 AM

QUOTE (IcemanND @ Apr 11 2005, 05:04 PM)

CODE

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile "testfile.txt", "myfile.txt"

And a quick tip, make sure you "somefile.close" the file if you've been writing to it earlier in the code otherwise you'll get a "permission denied" error...

Tensity

Jul 13 2005, 04:52 AM

Question..

How do you move more than one file to another dir,

for example
from
C:\dir\*.doc
to
c:\dir\documents\*.doc

[Edit]
Never mind already got it,

CODE

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "*.mp3", "D:\music\mp3\"

But what to do when you want to check first if there is any mp3 file there?

[/Edit]

gunsmokingman

Jul 13 2005, 06:49 AM

Here This Searches For All The WMA Files Then Copy Them To %systemDrive%\MusicTemp

To search For Other File Type Change The RED Text
To Change The Location Where The Files Goes Change The Green Text

QUOTE

Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Act : Set Act = CreateObject("Wscript.shell")
Dim Sd : Sd = Act.ExpandEnvironmentStrings("%systemDrive%")
Dim Name, Path, TheFile , INTA
INTA = 1-1
strComputer = "."
If Not Fso.FolderExists(Sd & "\MusicTemp") Then
Fso.CreateFolder(Sd & "\MusicTemp")
End If
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile Where Extension = 'wma'")
If colFiles.Count = 0 Then
Act.popup "No File With That Extention Was Found",4,"InValid File Type", 0 + 32
Wscript.Quit
End If
For Each objFile in colFiles
INTA = INTA + 1
Name = Ucase(objFile.FileName & "." & objFile.Extension)
Path = UCase(objFile.Drive & objFile.Path)
TheFile = KbPath & Kbname
Fso.CopyFile(Path & Name), (Sd & "\MusicTemp\" & Name)
Act.Popup "Completed The Copy Of This" & vbCrLf & Path & Name & vbCrLf & "The File Count = " & INTA, 2, "Gsm Copy File", 0 + 32
Next
Act.Popup "Completed Search And Copy" & vbCrLf & "Total Amount Of Files Moved = " & INTA, 5, "Gsm Search And Copy"

Fix A Extra quote I Had in The script

Tensity

Jul 14 2005, 12:15 AM

Hey Gunsmokingman, thank you for your quick reply.

QUOTE

Here This Searches For All The WMA Files Then Copy Them To %systemDrive%\MusicTemp

It is a nice script, however I do not want to search the whole system, but only one specific location. How do I integrate that into your script. Also I need to replace copy for move, because I want to move the files and not copy them.

Any suggestions?

gunsmokingman

Jul 14 2005, 04:53 AM

Red Is What You Will Have To Fill In
Blue Is A Check To Make Sure You Have A Folder To Copy To
Orange The Error Message
Green Is The First Checks Script

QUOTE

Fredledingue

Jul 16 2005, 01:05 PM

Is also working to move or rename a file

'--------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile("output.dat")
aFile.Move "intput.bak"

RainGigel

Aug 14 2008, 02:03 AM

I have a small and quick question....

CODE

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile "testfile.txt", "myfile.txt"

first the script works is simple and does it's job pretty fine but... how can a rename a file after the current date and add the .rar extension (ex. 2008.08.10.rar) ?

Thank you.

gunsmokingman

Aug 14 2008, 06:46 AM

This add the Date to the file, as to the rar part you could just change the ".txt" to ".rar"
but this would not be a real rar file.

QUOTE

CODE

  Dim fso, D1
  Set fso = CreateObject("Scripting.FileSystemObject")
   D1 = Replace(Date,"/",".")
   fso.MoveFile "testfile.txt", "myfile_" & D1 & ".txt"

Yzöwl

Aug 14 2008, 09:29 AM

Just in case of date format differences you may need

CODE

Set objFSO = CreateObject("Scripting.FileSystemObject")
N=Now
strFNA = Right(Year(N),4) & "." & Right(100+Month(N),2) & "." & Right(100+Day(N),2)
objFSO.MoveFile "testfile.txt", strFNA & ".rar"

RainGigel

Aug 14 2008, 10:32 AM

Thanks a bunch dude.

This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.