IWshShell3.CurrentDirectory Property

[José Roca]

The following code displays the current active directory.

JScript

Code Select Expand


var WshShell = WScript.CreateObject ("WScript.Shell");
WScript.Echo (WshShell.CurrentDirectory);


VBScript

Code Select Expand


Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory


PowerBASIC

Code Select Expand


DIM pWsh AS IWshShell3
pWsh3 = NEWCOM "WScript.Shell"
PRINT ACODE$(pWsh3.CurrentDirectory)