Criar pasta

galera boa tarde. eu  fiz um comando para criar uma pasta para que eu  exporte todos os dados e ele criar no meu documentos
C:\Users\GilliardPacheco\Documents  , até ai tudo bem


Dim ConferePasta As String
ConferePasta = "{PASTA DE RELATORIO}"
If Dir(ConferePasta, vbDirectory) = “” Then
MkDir ConferePasta
End If

so que o problema é o seguinte, quando o usuário for exportar os dados o comando não vai achar C:\Users\GilliardPacheco\Documents  , como fazer que o comando exporte os dados dependendo de qual usuário criou  entende?
porque eu ja direcionei o caminho pro sistema abrir a pasta
strPlanilha = "C:\Users\GilliardPacheco\Documents" & "RELATORIOS DAS DISPESAS" & ".xls"

Olha, geralmente para facilitar isso, cria-se uma pasta junto do Aplicativo, e com o Comando CurrentProject.Path é possivel Obter o Caminho completo de Onde está o Apicativo... Independente do Usuário!


Porem, se vc quer que cada usuário tenha a sua pasta de Exportação nos seu documentos (...\Documents) Poderá utilizar um comando para Obter o Usuário Logado no Windows, assim deve construir o Caminho...

Coloque em um Botão e faça o Teste com usuários Diferentes!!!

Dim CaminhoPasta as String
CaminhoPasta = "C:\Users\" & Environ("UserName") & "\Documents\"
Msgbox CaminhoPasta


Assim Não terá problema em criar ou Achar a pasta.

O Comando Environ("UserName") retorna o Nome do Usuário Logado no Windows.