Kbase 19374: How to Convert a Mapped Drive to a UNC Path
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
03/01/2000 |
|
DEFINE VARIABLE cDrive_Name AS CHARACTER NO-UNDO INITIAL "G:".
DEFINE VARIABLE cUNC_Name AS CHARACTER NO-UNDO.
DEFINE VARIABLE iName_Len AS INTEGER NO-UNDO INITIAL 100.
DEFINE VARIABLE iRetBool AS INTEGER NO-UNDO.
ASSIGN cUNC_Name = FILL("X",iName_Len).
RUN WNetGetConnectionA (INPUT cDrive_Name, OUTPUT cUNC_Name,
INPUT-OUTPUT iName_Len, OUTPUT iRetBool).
IF iRetBool = 0 THEN
ASSIGN cUNC_Name = SUBSTRING(cUNC_Name, 1, iName_Len).
ELSE
ASSIGN cUNC_Name = "".
MESSAGE cUNC_Name VIEW-AS ALERT-BOX.
RETURN.
PROCEDURE WNetGetConnectionA EXTERNAL "mpr.dll" :
DEFINE INPUT PARAMETER lpDrive AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER lpUNCName AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER lpnLength AS LONG NO-UNDO.
DEFINE RETURN PARAMETER RetBool AS LONG NO-UNDO.
END PROCEDURE.