Comments on: Vbscript converting numeric month to specified letter

By: defector

defector — Fri, 22 Jan 2010 23:02:31 +0000

fantastic!!!!
figured i would recieve an error due to numeric vs. non-numeric.
using the base of Gent01′s changes and your suggestion it works absolutely as expected.
Thanks so much for sharing the knowledge!!
the final code i have for others should they require same or similar is as follows:

Const sWD = “c:Test”
Const sFName = “c:testtest1.csv”
Const sFName2 = “c:testtest2.csv”

Set oFSO = CreateObject(“Scripting.FileSystemObject”)
If Not oFSO.FolderExists(sWD) then Error “Cannot locate folder “”" & sWD & “”"”

dYesterday = DateAdd(“d”, -1, Now())
sYesterday = Day(dYesterday) & chr(64 + Month(dYesterday)) & Year(dYesterday)

if not oFSO.FileExists(sFName) then Error “Cannot locate file “”" & sFName & “”"”
if not oFSO.FileExists(sFName2) then Error “Cannot locate file “”" & sFName2 & “”"”

oFSO.MoveFile sFName, sYesterday & “.txt”
oFSO.MoveFile sFName2, sYesterday & “.txt”

Sub Error(sMsg)
MsgBox sMsg
WScript.Quit
End Sub

By: carlosdl

carlosdl — Fri, 22 Jan 2010 17:14:29 +0000

You are receiving an error because the script is trying to multiply a number and a non-numeric char (i.e 10000 * “A”).

I updated the answer above with another suggestion, using Gent01′s idea.

By: defector

defector — Fri, 22 Jan 2010 13:54:59 +0000

Hi Gent01

Thanks for the reply and the info. Very clean and simple conversion to ASCII that I wasnt aware of. Very nice
When looking at the code with CHR in place I would recieve an error though with it trying to multiply: 10000 * Chr(64 + Month(dYesterday))