I am looking for a procedure to create a date stamp folder with the following requirements:
1-MsgBox: "Please make sure to report folder in which should be located new date stamp folder in range A1". if you haven't reported folder click on cancel (exit sub)."
2-Check if reported folder exist if not MsgBox: "Unable to create folder as reported folder doesn't exist.". Exit sub
3-If date stamp folder has been created: MsgBox "Date stamp folder has been created" and open created folder
I have the following procedure part which can help.
Dim sFolder As String
If Len(Dir(sFolder & Format(Now, "YYYYMM_DDHHMMSS") & "\", vbDirectory)) = 0 Then
MkDir sfolder & Format(Now, "YYYYMM_DDHHMMSS") & "\"
Thank you in advance for your feedback.