• Skip to main content
  • Skip to primary sidebar

Ryan McCormick

Dedicated Dad, Software Engineer and Lover of Coffee

Create a Folder For Every Tuesday for One Year

June 27, 2014 by Ryan McCormick 2 Comments

I honestly have no idea how much traffic this article is going to get. I wanted to post it simply because I thought it was neat. This script was designed to automatically generate a folder name of ‘mmddyyyy’ for every Tuesday date of a year that a user inputs. This script can be copied and pasted into notepad and saved to where the folders need to be generated with a filename of choice with “.vbs” as the file type at the end.

Upon executing the end-user will be prompted to type in the target year.

'Get user input

iYear = InputBox("What year would you like to create folders for?")

If IsNull(iYear) = False Then
	Call makeFolders(iYear)
End If

Sub makeFolders(iYear)
	Dim sDate,eDate,ctDate,oFSO
	
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	
	'make folders for the year entered by the end user
	sDate = CDate("01/01/" & iYear)
	eDate = CDate("12/31/" & iYear)

	ctDate = sDate

	For i = 1 to DateDiff("d", sDate, eDate)
		If Weekday(ctDate) = vbTuesday Then
			oFSO.CreateFolder createDate(ctDate)
			'MAKE FOLDER
		End If
		ctDate = ctDate + 1
	NEXT

End Sub

Function createDate(myDate)
	d = WhatEver(Day(myDate))
	m = WhatEver(Month(myDate))    
	y = Year(myDate)
	createDate = m & d & y
End Function

Function WhatEver(num)
    If(Len(num)=1) Then
        WhatEver="0"&num
    Else
        WhatEver=num
    End If
End Function

Please note that this script can be adapted to create folders for any day of the week. To modify, locate the for loop and change “vbTuesday” to any day of the week with “vb” at the beginning.

As always comments are greatly appreciated.

Related

Filed Under: VBScript Tagged With: create folders, VBScript

Reader Interactions

Comments

  1. Jesse says

    January 5, 2017 at 1:50 pm

    How would you modify the folder name creation to do things like adding a _ as a seporator between DD__MM_YYYY?

    Reply
    • Ryan McCormick says

      March 19, 2017 at 4:03 pm

      Where the folder is created with the date: oFSO.CreateFolder createDate(ctDate) – look at the createDate function. You could create your own custom implementation with the strings you want, etc…

      Reply

Leave a Reply Cancel reply

Primary Sidebar

Recent Posts

  • Force Quit Kill all Chrome Windows MacOS
  • SOLVED: Angular 6 CLI Karma Stuck in Single Run | Karma Stops Running
  • How to Manually Install Java 8 on Ubuntu 18.04 LTS
  • Remove VirtualBox from Ubuntu 16.04 Xenial
  • Clear all Node Modules Folders Recursively Mac/Linux

Recent Comments

  • KKV on Webstorm adding spaces between imports and braces | JavaScript and TypeScript
  • jusopi on Clear all Node Modules Folders Recursively Mac/Linux
  • Qaisar Irfan on Clear all Node Modules Folders Recursively Mac/Linux
  • mustafa on Remove VirtualBox from Ubuntu 16.04 Xenial
  • Pourya on How to Manually Install Java 8 on Ubuntu 18.04 LTS

Archives

  • May 2019
  • May 2018
  • April 2018
  • March 2018
  • January 2018
  • September 2017
  • August 2017
  • July 2017
  • June 2017
  • March 2017
  • December 2015
  • November 2015
  • July 2015
  • April 2015
  • February 2015
  • September 2014
  • June 2014
  • May 2014
  • April 2014
  • March 2014
  • February 2014
  • October 2013
  • August 2013
  • June 2013
  • April 2013
  • March 2013
  • February 2013
  • December 2012
  • October 2012
  • September 2012
  • August 2012
  • July 2012
  • May 2012
  • March 2012
  • February 2012
  • December 2011
  • November 2011
  • April 2011
  • March 2011
  • February 2011
  • January 2011
  • December 2010
  • November 2010
  • August 2009
  • July 2009
  • May 2009

Categories

  • Angular
  • Angular 2
  • AngularJS (1x branch)
  • Computer Q&A
  • ES2015
  • Internet Marketing
  • Javascript
  • Job Interviews
  • Job Search
  • Karma
  • Laravel
  • Linux
  • Linux/Unix Tips
  • MacOS
  • Microsoft Access
  • Microsoft Excel
  • Microsoft Outlook
  • Microsoft Word
  • News
  • Node
  • Open Source
  • PHP
  • Protractor
  • Resume Writing
  • Spring Boot
  • SQL
  • Ubuntu
  • VBA
  • VBScript
  • VirtualBox
  • Web Development
  • Windows Tips
  • Wordpress

Meta

  • Log in
  • Entries feed
  • Comments feed
  • WordPress.org

Copyright © 2023 · Magazine Pro on Genesis Framework · WordPress · Log in