How can i use Now statement to create folder

[Kishore_J]

Hi Frds,

Can i know the script for create a folder with Current date.


Thanks,

[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

[Kishore_J]

Thank you very much Sreekanth..

[DinakarVadapalli]

Code:

Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.CreateFolder("c:\New Folder")
   CreateFolderDemo = f.Path