Converting a filename to UNC format

Chris Kelleher

Administrator
Staff member
<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>DEFINE var Drive_Name As CHARACTER no-undo init "K:".
DEFINE var UNC_Name As CHARACTER no-undo.

def var namelen as int no-undo initial 100.
def var retBool as int no-undo.

UNC_Name = FILL("x",namelen).
RUN WNetGetConnectionA ( Drive_Name,
OUTPUT UNC_Name,
INPUT-OUTPUT namelen,
OUTPUT retBool).

IF retBool = 0 THEN
UNC_Name = SUBSTRING(UNC_Name, 1, namelen).
ELSE
UNC_Name = "".

message
UNC_Name
view-as alert-box.

return.

PROCEDURE WNetGetConnectionA EXTERNAL "mpr.dll" :
DEFINE INPUT PARAMETER lpDrive AS CHAR.
DEFINE OUTPUT PARAMETER lpUNCName AS CHAR.
DEFINE INPUT-OUTPUT PARAMETER lpnLength AS LONG.
DEFINE RETURN PARAMETER RetBool AS LONG.
END PROCEDURE.
[/code]
 
Top