Observação: A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área de segurança, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo de área de segurança, pesquise por "modo de área de segurança" na Ajuda.

Retorna uma Variant (Cadeia deCaracteres ) que representa o caminho atual.

Sintaxe

CurDir[(unidade)]

A unidade opcionalargumento é um expressão de cadeia de caracteres que especifica uma unidade existente. Se nenhuma unidade for especificada ou se a unidade for uma cadeia de caracteres de comprimento zero (""), CurDir retornará o caminho da unidade atual. No Macintosh, CurDir ignora qualquer unidade especificada e simplesmente retorna o caminho da unidade atual.

Exemplo

Observação: Exemplos a seguir demonstram o uso dessa função em um módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na listada ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função CurDir para retornar o caminho atual. No Macintosh, as especificações de unidade fornecidas a CurDir são ignoradas. O nome da unidade padrão é "HD" e partes do nome do caminho são separadas por dois pontos em vez de backslashes. Da mesma forma, você especificaria pastas Macintosh em vez de \Windows.

' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".

Precisa de mais ajuda?

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar Microsoft Office Insider

Essas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade do idioma?
O que afetou sua experiência?

Obrigado pelos seus comentários!

×