Renaming file as weekdays... - microsoft.public.scripting.vbscript

Message from discussion Renaming file as weekdays...

moonhkt

View profile

More options Oct 28 2009, 2:59 pm

Newsgroups: microsoft.public.scripting.vbscript

From: moonhkt <moon...@gmail.com>

Date: Wed, 28 Oct 2009 07:59:31 -0700 (PDT)

Local: Wed, Oct 28 2009 2:59 pm

Subject: Re: Renaming file as weekdays...

  Forward
  | Print
  | View thread
  | Show original
  | Report this message
  | Find messages by this author
  

On Oct 28, 3:58 pm, Jake <jak...@gmail.com> wrote:

> Hi,

> I have a file called C:\MyDir\MyFile.dat which is copied to this folder
> automatically each night.

> I need to keep a copy of this file for the seven last days. Hence I
> need to have the file renamed to the day of week, overwriting the old
> filenames. The result should be a set of files Thursday.dat,
> Friday.dat, Saturday.dat... etc in C:\MyDir.

> How would I do this in vbscript? I'm realtively new to this, but I want
> to learn :-)

> thanks anyone

> jake

you can using weekday(),retrun 1,2,3,.. then rename to Weekday.

Option Explicit
'~~ 2009/09/27 renname to yyymmdd*.jpg
'~~ 2007/08/28
'~~ Backup file *.nsf file to *_yyyymmdd.nsf
'~~ whs %shell%\rename_scanimage.vbs
Dim wdate
Dim oShell
Dim source , target, tmpfile,tmpfile1
Dim fso
dim WshShell, intButton,ObjExec,folder,file
dim cnt

Set fso = CreateObject("Scripting.FileSystemObject")
'~~ wDate = Year(Now) & Right("00" & Month(Now), 2) & Right("00" & Day
(Now), 2)
cnt = 0
Set WshShell = Wscript.CreateObject("Wscript.Shell")
set folder = fso.GetFolder (".") '~~ Currenty Directory
for each file in folder.Files
if fso.GetExtensionName (file.Path) = "jpg" then
if left(file.name,7) = "Picture" then
cnt = cnt + 1
'~~~tmpfile = wDate & "_" & cnt & ".jpg"
WScript.Echo file.name & " " & tmpfile
tmpfile1 = year(file.DateLastModified) & _
right("00" & Month(file.DateLastModified),2) & _
right("00" & day(file.DateLastModified),2) & "_" & _
right("000" & cnt,3) & ".jpg"
WSCript.echo tmpfile1
'~~ if file name existing

'~~ Start rename
fso.movefile file.name , tmpfile1
end if

end if
next

Set oShell = Nothing
Set folder = Nothing
Set fso = nothing
set WshShell = nothing

Forward