Creating new files and folders

[LAVA2]

Hello everyone,

Please Login or Register  to view this content.

By running the above code i did successfully created a file named "1 nov 2014" and saved a new blank word document named "ANSWRS.docx" in it.
But when i want to create another file named "2 nov 2014" and save a new word document with the same name "ANSWERS.Docx" .
I have to modify the above code as followes:

Please Login or Register  to view this content.

Is it possible to create a new file without changing the file name in the above code and save a new word document named "ANSWERS.Docx" inside that file?
And also when the "NOV 2014" folder is full, is it possible for the code to automatically create another folder "DEC 2014" and continue creating files "1 dec 2014", "2 dec 2014" etc?

Cheers

[mrice]

Maybe try this

Please Login or Register  to view this content.

[LAVA2]

@mrice

Sub Test()
Dim myDir As String
Dim Folder1 As String

StartDate = DateValue("2-Nov-2014")
NumberOfDays = 1

For N = 0 To NumberOfDays - 1
Folder1 = UCase(Format(StartDate + N, "MMM YYYY"))
Folder2 = Format(StartDate + N, "DD MMM YYYY")
If Dir("C:\GRANDVARIATIONS\FILES\" & Folder1, vbDirectory) = "" Then
MkDir "C:\GRANDVARIATIONS\FILES\" & Folder1
End If
If Dir("C:\GRANDVARIATIONS\FILES\" & Folder1 & "\" & Folder2, vbDirectory) = "" Then
MkDir "C:\GRANDVARIATIONS\FILES\" & Folder1 & "\" & Folder2
End If




On Error Resume Next
Set oDoc = GetObject(sDocPath)
Set oWord = oDoc.Parent
If Err <> 0 Then
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
End If

oDoc.SaveAs ("C:\GRANDVARIATIONS\FILES\" & Folder1 & "\" & Folder2 & "\ANSWERS.Docx")
oDoc.Close

Next N
End Sub

In a "FILES" folder there is already "1-Nov-2014" and by using the above code i became able to create another file named "2-Nov-2014".
but while creating file named "3-Nov-2014" again i have to change "StartDate = DateValue("2-Nov-2014")" to "StartDate = DateValue("3-Nov-2014")"
Isn't there a way so that i wont have to change that value every time i want to create a new file?

note: I would like the code to "iterate over the folders, determine which is the newest one, and then set the variable to that date"