Funció CurDir

Torna una cadena de variant que representa el camí actual de la unitat especificada.

Icona d'avís

Aquesta expressió ara mateix no funciona tal com es documenta. Consulteu aquest informe d'error per a obtenir més informació.


Sintaxi:

CurDir [(Text As String)]

Valor de retorn:

Cadena

Paràmetres:

Text: Qualsevol expressió de cadena que especifica una unitat existent (per exemple, "C" per a la primera partició de la primera unitat de disc dur).

Si no s'especifica cap unitat o si la unitat és una cadena de longitud zero (""), CurDir torna el camí de la unitat actual. El LibreOfficeDev Basic informa d'un error si la sintaxi de la descripció de la unitat és incorrecta, si la unitat no existeix, o si la lletra d'unitat es produeix després de la lletra definida a CONFIG.SYS amb l'expressió Lastdrive.

Aquesta funció no distingeix entre majúscules i minúscules.

Codis d'error

5 La crida al procediment no és vàlida

68 El dispositiu no està disponible

7 Memòria insuficient

51 Error intern

Exemple:

Sub ExampleCurDir

Dim sDir1 As String , sDir2 As String

    sDir1 = "c:\Test"

    sDir2 = "d:\Private"

    ChDir( sDir1 )

    MsgBox CurDir

    ChDir( sDir2 )

    MsgBox CurDir

End Sub