Microsoft Office Online
Iniciar sessão no Meu Office Online (O que é isto?) | Iniciar sessão

 
 
Microsoft Office Access
Procurar
Procurar
 
 
 
 
Aviso: está a visualizar esta página com um browser não suportado. Este Web site funciona melhor com o Microsoft Internet Explorer 6.0 ou posterior, o Firefox 1.5 ou o Netscape Navigator 8.0 ou posterior. Mais informações sobre browsers suportados.

Função ActDir
 

Devolve uma Variante (Cadeia) que representa o caminho actual.

Sintaxe

ActDir[(unidade)]

O argumento (argumento: valor que fornece informações a uma acção, evento, método, propriedade, função ou procedimento.) unidade opcional é uma expressão de cadeia (expressão de cadeia: expressão que equivale a uma sequência de caracteres contíguos. Os elementos da expressão podem ser: funções que devolvem uma cadeia ou uma Variante de cadeia (VarType 8); uma cadeia literal, uma constante, uma variável ou Variante.) que especifica uma unidade existente. Se não for especificada qualquer unidade ou se a unidade for uma cadeia de comprimento zero (""), a função ActDir devolve o caminho da unidade actual. Em Macintosh, a função ActDir ignora qualquer unidade especificada e devolve apenas o caminho da unidade actual.

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

Este exemplo utiliza a função ActDir para devolver o caminho actual. Em Macintosh, as especificações da unidade em ActDir são ignoradas. O nome da unidade predefinido é “HD” e as partes do nome do caminho são separadas por vírgulas e não por barras invertidas. Da mesma forma, especificaria as pastas de 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".
anúncio