CurDir Function

CurDir( drive )

Returns the current path for the specified drive.

CurDir returns a Variant; CurDir$ returns a String.

Example:

    Declare Function CurDir Lib "NewFuns.dll" () As String

    Sub Form_Click()

        Dim Msg, NL   ' Declare variables.

        NL = Chr(10)   ' Define newline.

        Msg = "The current directory is: "

        Msg = Msg & NL & CurDir()

        MsgBox Msg   ' Display message.

    End Sub