'=========================================================
'
' DESC: Create a new Folder with a date timestamp
'
' USAGE: Call CreateFolder ("New Folder" & strCurrentDate)
'
'
' AUTHOR: Todd Woolums (twoolums@toddwoolums.com)
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================

Dim fso
Dim strCurrentDate

Set fso = CreateObject("scripting.filesystemobject")
Call BuildCurrentDate
Call CreateFolder ("\\server\share\backup\" & strCurrentDate)

Sub BuildCurrentDate

    strCurrentDate = Year(date()) 
    If (Month(date()) < 10) Then
        strCurrentDate = strCurrentDate & "0" & Month(date())
    Else
        strCurrentDate = strCurrentDate & Month(date())
    End If
    If (Day(date()) < 10) Then
        strCurrentDate = strCurrentDate & "0" & Day(Date())
    Else
        strCurrentDate = strCurrentDate & Day(Date())
    End If

End Sub  

Sub CreateFolder(strNewDir)

	fso.CreateFolder (strNewDir)

End Sub