Visual Basic nome do mes ao criar pasta

[Ismael Souza]

Bom dia pessoal !

 No code abaixo, estou criando pasta num diretorio, da seguinte maneira

 ano -> mes -> semana

Mas o mes está em numero (ex: agosto = 08), qual a melhor maneira de adequar esse code para que ele crie a pasta com o nome "08.AGOSTO" e não só 08 ?

 

Sub SalvaPlano()

 Dim WS As Worksheet

    Dim dia As String
    dia = Format(Day(Date), "00") + 1
    Dim mes As String
    mes = Format(Month(Date), "00")
    Dim ano As String
    ano = Year(Date)
    Dim semana As Variant
    
    semana = WorksheetFunction.IsoWeekNum(Date)
    
    
    Dim rootPath, rootPath1, rootPath2, rootPath3, rootPath4 As Variant

      rootPath = "\\105.103.12.249\OQC\11. PLANOS DIÁRIOS"
      
    
        rootPath1 = rootPath & "\" & "HARDWARE" & "\" & ano
         If Dir(rootPath1, vbDirectory) = "" Then MkDir rootPath1

 

 

 

Obrigado pela atenção de todos

[Midori]

@Ismael Souza  Pode ser assim,

 

mes = UCase(Format(Month(Date), "MMMM"))

 

[Ismael Souza]

Ola @Midori !

 

  O Código enviado por você criou uma pasta com o mes "JANEIRO" e não "AGOSTO".

  Como posso arrumar?

[Midori]

@Ismael Souza  Em Format use apenas Date, sem Month,

 

mes = UCase(Format(Date, "MMMM"))

 

[Ismael Souza]

Obrigado @midori

 deu certo !

[misterjohn]

Uma curiosidade: Embora mexa com pcs há muito tempo, sobre esse assunto eu estou por fora, qual o nome da materia que versa essa linguagem ai?

[Midori]

@misterjohn  Esse código é macro/VBA do Excel.

[misterjohn]

@Midori Legal, uso o Excel, assim como o World, mas apenas o beaba....kkkk para o que me serve tá bom, eu só procuro aprender ou aprofundar caso necessite, a informática, tanto na parte física como nos programas, é muito vasta, então aprender só por aprender não vira e encherei minha cabeça de coisas que não vou usar, agora se um dia precisar e for usar, ai vou fundo....grato