But I need it to generate a folder for year, month and day Can someone help me? follow ...
' informacoes
Public cDay, cMonth, cMonthName, cPath
Function identificarData()
' Identificar o caminho na rede
cPath = "caminho para salvar o arquivo"
' Identificar o dia e mês
If Day(Date) < 10 Then
cDay = "0" & Day(Date)
Else
cDay = Day(Date)
End If
If Month(Date) + 1 < 10 Then
cMonth = "0" & Month(Date)
Else
cMonth = Month(Date)
End If
' Identificar o nome do mês
Select Case cMonth
Case Is = "01"
cMonthName = "January"
Case Is = "02"
cMonthName = "February"
Case Is = "03"
cMonthName = "March"
Case Is = "04"
cMonthName = "April"
Case Is = "05"
cMonthName = "May"
Case Is = "06"
cMonthName = "June"
Case Is = "07"
cMonthName = "July"
Case Is = "08"
cMonthName = "August"
Case Is = "09"
cMonthName = "September"
Case Is = "10"
cMonthName = "October"
Case Is = "11"
cMonthName = "November"
Case Is = "12"
cMonthName = "December"
End Select
End Function