• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 709
  • Last Modified:

Create folder in vbs

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

  • 2
1 Solution
skipper68Application Development ManagerCommented:
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

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

Ninjaguy900Author Commented:
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
Ninjaguy900Author Commented:
My bad Shift-3:
hadn't removed the apostrophe from the beginning of line 30!

many thanks
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now