Create folder in vbs

Posted on 2009-07-13
Last Modified: 2012-05-07
Hi Experts
I need to create a vbs script that allows me to rename and copies files to a folder on the same server

I have managed to find the code for renaming the file based on the creation date
But now I also need for this file to be copied to a folder that potentially doesnt exist


report is created called sample.csv

script is run nightly to pick up the new file and rename it to the creation date sam_120709.csv

how do I then move the file into a folder that doesnt exist

am looking to put files into monthly folders

folder name is simply yyyymm

Below is what I have so far

Thanks in advance

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set FileList = objWMIService.ExecQuery _

    ("ASSOCIATORS OF {Win32_Directory.Name='C \Report'} Where " _

        & "ResultClass = CIM_DataFile")

For Each objFile In FileList

    strDate = Left(objFile.CreationDate, 8)

    strNewName = objFile.Drive & objFile.Path & _

       "X143" & "_" & strDate & "." & "csv"

    strNameCheck = Replace(strNewName, "\", "\\")

    i = 1

    Do While True

        Set colFiles = objWMIService.ExecQuery _

            ("Select * from Cim_Datafile Where Name = '" & strNameCheck & "'")

        If colFiles.Count = 0 Then

            errResult = objFile.Rename(strNewName)

            Exit Do


            i = i + 1

            strNewName = objFile.Drive & objFile.Path & _

                "X143" & "_" & strDate & "_" & i & "." & "csv"

            strNameCheck = Replace(strNewName, "\", "\\")

        End If



Open in new window

Question by:Ninjaguy900
  • 2

Expert Comment

Comment Utility
This should work for you.
'Set New Folder name for date

yy = DatePart("yyyy",DateAdd("d",-1,Date))

mon = DatePart("m",DateAdd("d",-1,Date))

If len(mon) = 1 Then

     mon = "0" & mon

End If

'Set New Folder, Create new folder

NewFolder = "C:\test\" & yy & mon

objFSO.CreateFolder (NewFolder)

wScript.Echo "Folder Created: " & newfolder

'Creates Folder Obj

Set objFolder = objFSO.GetFolder(foldera)

Set colFiles = objFolder.Files

'Start Files Move

For Each objFile In colFiles

     WScript.Echo "Moving " & objFile.Path & " to " & newfolder & "..." & objFSO.GetFileName(objFile.Path)

     objFSO.MoveFile objFile.Path, NewFolder & "\"


Open in new window

LVL 38

Accepted Solution

Shift-3 earned 500 total points
Comment Utility
Paste the script below into a text file with a .vbs extension.  Customize the value of the strSource variable on line 1 with the location of the folder containing the report files.  Customize the value of the strDest variable on line 3 with the location of the folder under which to create dated subfolders.  This can be the same as the source directory.

Running the script (e.g. with cscript scriptname.vbs) will echo the actions to be taken.  Once you have tested it successfully and are sure it will do what you intend, remove the apostrophe from the beginning of line 30 to move and rename the files.

strSource = "C:\Report"

strExt = "csv"

strDest = "C:\Report"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objSource = objFSO.GetFolder(strSource)

For Each objFile in objSource.Files

    strFileExt = objFSO.GetExtensionName(objFile.Path)


    If LCase(strFileExt) = LCase(strExt) Then

        If strFileExt <> "" Then

            strFileExt = "." & strFileExt

        End If


        strMM = Right("0" & Month(objFile.DateCreated), 2)

        strDD = Right("0" & Day(objFile.DateCreated), 2)

        strYY = Right(Year(objFile.DateCreated), 2)

        strYYYY = Year(objFile.DateCreated)


        strNewName = Left(objFile.Name, 3) & "_" & strMM & strDD & strYY & strFileExt

        strNewFolder = strDest & "\" & strYYYY & strMM

        strNewPath = strNewFolder & "\" & strNewName


        If Not objFSO.FolderExists(strNewFolder) Then


        End If


        WScript.Echo "Move " & objFile.Path & " to " & strNewPath

        'objFSO.MoveFile objFile.Path, strNewPath

    End If


Open in new window


Author Comment

Comment Utility
Many thanks for you prompt response
I'm having a very steep learning curve !
Skipper68 - I am getting an error on your code on line 10 - really done know why
Shift-3 the code works to a point, it creates the folders based on the creation date, but fails to move them into the folder
Am I missing something?

What should the correct process be
copy , rename, then move, then delete
or is it possible to rename & move in the same segment of script

many thanks

Author Comment

Comment Utility
My bad Shift-3:
hadn't removed the apostrophe from the beginning of line 30!

many thanks

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Welcome to part one of a multi-part tutorial series, VBScript for Windows System Administrators.  The goal of this series is to teach non-programmers how to write useful VBS code to automate their environment, and perform tasks faster, and in a more…
In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now