script to generate monthly 2

[causative]

Hello
I need your help with the script.
I want to create monthly folders for example: Jan14, Feb14, March14 and so.... for one year
Is it possible to do?

Thx in advice

 

[guitarzan]

What have you tried so far, and where are you stuck?

 

[causative]

Hi
thx for replay
So far I have tried:

strFolder = Month(date) & "_" & Year(date)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder(strFolder)

I'm not a programmer so my code is very simple

 

[SkipVought]

Hi,

Do you really want folders named like that ie mmmyy?

If you were to sort the folders, April & August would collate before January & February!

 

[guitarzan]

I agree with Skip's advice, but if a 3-letter abbreviation is all you are after, use the MonthName function:

http://www.w3schools.com/vbscript/func_monthname.asp

strFolder = MonthName(Month(Date()), True) & "_" & Year(date)

 

[causative]

You have a right SkipVought, guitarzan.
It would make problems with sorting, so mmyy is OK, but how to generate 12 folders not just a one?

 

[guitarzan]

Use a loop:

[highlight #FCE94F]For x = 1 to 12[/highlight]
   strFolder = MonthName([highlight #FCE94F]x[/highlight], True) & "_" & Year(date) 
   objFSO.CreateFolder(strFolder) 
[highlight #FCE94F]Next[/highlight]

 

[causative]

THX it works and it isn't very difficult