Observação
A função, método, objeto ou propriedade descrita neste tópico está desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.
Devolve uma Variante (Cadeia) que representa o caminho atual.
Sintaxe
CurDir[(unidade)]
O argumento de unidadeopcional é uma expressão de cadeia que especifica uma unidade existente. Se não for especificada nenhuma unidade ou se a unidade for uma cadeia de comprimento zero (""), CurDir devolve o caminho para a unidade atual. No Macintosh, o CurDir ignora qualquer unidade especificada e simplesmente devolve o caminho para a unidade atual.
Exemplo
Observação
Exemplos que se seguem demonstram a utilização desta função num módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Programador na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza a função CurDir para devolver o caminho atual. No Macintosh, as especificações de unidade fornecidas ao CurDir são ignoradas. O nome da unidade predefinido é "HD" e as partes do nome do caminho são separadas por dois pontos em vez de barras invertidas. Da mesma forma, 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".