Boa noite, gostaria de uma ajuda com um código. O meu computador não reconhece os drives para criar as pastas para gerar arquivos pdf. Precisa instalar alguma referência??

obrigado,

Rafael

If TEXTPRofissional2 <> "" Then
VOLTAR:
Else
Dim linha, pasta5

 Dim FileName As String, Path As String, meuArqu

        Path = "C:RELATORIO_CLINICAVENDASSERVICO"
       
       'VERIFICA SE O CAMINHO EXISTE
        If Dir("C:RELATORIO_CLINICAVENDASSERVICO", vbDirectory) = Empty Then
Set pasta5 = linha.CreateFolder("C:RELATORIO_CLINICAVENDASSERVICO")
CreateFolderDemo = PASTA3.Path
End If





    If Not isfileopen("C:RELATORIO_CLINICAVENDASSERVICO" & "RELATORIO-" & Me.TEXTPRofissional2.Text & "-" & TEXTMES2.Text & "-" & TEXTANO2.Text & ".pdf") Then



With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:="C:RELATORIO_CLINICAVENDASSERVICO" & "RELATORIO-" & Me.TEXTPRofissional2.Text & "-" & TEXTMES2.Text & "-" & TEXTANO2.Text & ".pdf", _
openafterpublish:=True
End With

Else
MsgBox ("EXISTE UM ARQUIVO COM MESMO NOME JÁ ABERTO, POR FAVOR FECHE-O PARA PROSSEGUIR E CLIQUE EM OK!!!")
GoTo VOLTAR:
End If
End If

If TEXTPROF <> "" Then
VOLTAR2:
    Dim linha2, PASTA3

Set linha2 = CreateObject("Scripting.FileSystemObject")

If Dir("C:RELATORIO_CLINICAVENDASPROFISSIONAIS", vbDirectory) = Empty Then
Set PASTA3 = linha2.CreateFolder("C:RELATORIO_CLINICAVENDASPROFISSIONAIS")
CreateFolderDemo = PASTA3.Path
End If

    If Not isfileopen("C:RELATORIO_CLINICAVENDASPROFISSIONAIS" & "RELATORIO-" & Me.TEXTPROF.Text & "-" & TextMES.Text & "-" & TextANO.Text & ".pdf") Then



With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:="C:RELATORIO_CLINICAVENDASPROFISSIONAIS" & "RELATORIO-" & Me.TEXTPROF.Text & "-" & TextMES.Text & "-" & TextANO.Text & ".pdf", _
openafterpublish:=True
End With

Else
MsgBox ("EXISTE UM ARQUIVO COM MESMO NOME JÁ ABERTO, POR FAVOR FECHE-O PARA PROSSEGUIR E CLIQUE EM OK!!!")
GoTo VOLTAR2:
End If
End If

CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End With
End Sub