VBA creating a folder - combine a set Name and a variable Date

[Ughes]

Hello All,

Hope this post finds everybody in good order. I have been trawling the forum for some time now, in the hope of finding a specific twist to a common issue - Creating a folder - the code is as simple as it gets. However, as you can see below, I want to create the folder with a set file name PLUS today's date in the following format "yyyymmdd" (no spaces). Not sure how to combine the "IOMR" (set name) with today's date.

Any help that could be given would be mostly appreciated. I know the code just requires a small tweak but cannot get over the finish line.


Sub FolderandFileCreation()

Dim X As Variant
X = Date

MkDir "C:\Documents and Settings\IOMR\IOMR " & X
ActiveWorkbook.SaveAs Filename:="Project Detail for IOMR.xlsm", _
FileFormat:=xlText, CreateBackup:=False

End Sub


Regards to all
Ughes

 

[VoG]

Try

MkDir "C:\Documents and Settings\IOMR\IOMR " & Format(X, "yyyymmdd")

 

[sous2817]

Here's one way:

Sub foo()
Dim x As String

x = Format(Now, "yyyymmdd")


{rest of code here}

 

[Ughes]

Hi Guys,

Lovely stuff, thank you so much for the help.

Knew it was something simple!

Ughes