CurDir function

CurDir( drive )

Returns the current path for the specified drive.

CurDir returns a Variant; CurDir$ returns a String.

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