FileWatcher .vbs script to rename file if it exists

Discuss our other products here. Get help with installation and running, notify us of bugs, request new features and enhancements.

Moderators: DataMystic Support, Moderators

User avatar
DataMystic Support
Site Admin
Posts: 2164
Joined: Mon Jun 30, 2003 12:32 pm
Location: Melbourne, Australia
Contact:

FileWatcher .vbs script to rename file if it exists

Postby DataMystic Support » Wed Jun 16, 2010 6:38 am

Save as rename_existing.vbs

Code: Select all

'FileWatcher script - rename files to .bak if they exist

Option Explicit

dim objArgs
dim fso
dim filename
dim folder

Set fso = CreateObject("Scripting.FileSystemObject")

'Set a reference to the arguments
Set objArgs = Wscript.Arguments


for each filename in objArgs

   If fso.FileExists( filename ) Then
      fso.MoveFile filename, filename & ".bak"
   End If

next

Set fso = Nothing
Set objArgs = Nothing


Command: C:\Windows\System32\wscript.exe
Parameters: <full path\>rename_existing.vbs %FILE%
Attachments
rename files if they exist.zip
(406 Bytes) Downloaded 649 times
Regards,

Simon Carter, http://DataMystic.com/forums/index.php
http://PredictBGL.com - Insulin dose calculator for Type 1 diabetes
http://DownloadPipe.com - 250,000 free software downloads
http://DetachPipe.com - send huge email attachments

Return to “FileWatcher, DirDate and other Support”

Who is online

Users browsing this forum: No registered users and 3 guests