Olá

Gostaria de deixar sempre disponível as pastas "D:PVPDF " e "D:PVXLS ", mas quando "D:PVPDF" esta criado ele não cria "D:PVXLS" e vice e versa.

Confuso aqui.

Sub abri_pasta_pdf()
    
    If Len(Dir("D:PVPDF", vbDirectory) & "") > 0 Then
    'MsgBox "Você está tentando criar um diretório que já existe"
Else
    If Len(Dir("d:PV", vbDirectory) & "") = 0 Then
    MkDir "D:PV"
    MkDir "D:PVPDF"
        'MsgBox "Diretório criado com sucesso. O Pedido já pode ser realizado"
End If
End If
    Shell "C:WINDOWSexplorer.exe """ & "D:PVPDF" & "", vbNormalFocus
End Sub




Sub abri_pasta_xls()
    
    If Len(Dir("D:PVXLS", vbDirectory) & "") > 0 Then
    'MsgBox "Você está tentando criar um diretório que já existe"
Else
    If Len(Dir("d:PV", vbDirectory) & "") = 0 Then
    MkDir "D:PV"
    MkDir "D:PVXLS"
        'MsgBox "Diretório criado com sucesso. O Pedido já pode ser realizado"
End If
End If
    Shell "C:WINDOWSexplorer.exe """ & "D:PVXLS" & "", vbNormalFocus
End Sub