How can i use Now statement to create folder

[sreekanth chilam]

Hi Kishore,

Here we go !!

Code:

Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.CreateFolder("c:\"&replace(replace(now,"/","-"),":","-"))
   NewFolder_Path= f.Path
   NewFolder_Name=f.Name
   msgbox NewFolder_Path
   msgbox NewFolder_Name