🚀 go-pugleaf

> WNetGetUniversalName $B$G$9$M!#Nc$($P!"0J2<$N$h$&$K$J$k$G$7$g$&$+!#(J
> 
> Public Const UNIVERSAL_NAME_INFO_LEVEL As Long = 1
> 
> Declare Function WNetGetUniversalName Lib "mpr" _
>   Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, _
>   ByVal dwInfoLevel As Long, lpBuffer As Long, lpBufferSize As Long) As
Long
> Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" _
>   (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
> 
> Dim BufSize As Long
> Dim Buf(1000) As Long
> Dim UNC As String * 1000
> 
> BufSize = 1000
> 
> WNetGetUniversalName "F:", UNIVERSAL_NAME_INFO_LEVEL, Buf(0), BufSize
> lstrcpy UNC, Buf(0)
> 
> MsgBox UNC
> 
> -- 
> Computer Institute of Japan, Ltd.
> $B:4F#@59((J masahiro@cij.co.jp
> 
> 

$B:8F#$5$s!!$"$j$,$H$&$4$6$$$^$7$?!#(J

$B<!$N$h$&$J%W%m%0%i%`$r:n$C$F<B9T$7$F$_$^$7$?$,4|BT$7$?CM$,5"$C$F$-$^$;$s$G(J
$B$7$?!#(J
$BAG?M$J$b$N$G$9$+$i$I$3$,0-$$$N$+$4;XE&$/$@$5$$!#(J


Private Declare Function WNetGetUniversalName Lib "mpr" Alias
"WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As
Long, lpBuffer As Long, lpBufferSize As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal
lpString1 As String, ByVal lpString2 As Long) As Long

Public Function PF_WNetGetUniversalName(InDriveName As String) As String
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'$B5!G=!'%I%i%$%V$K3d$jEv$F$i$l$?%M%C%H%o!<%/%Q%9L>$rJV$9!#(J
'$BLaCM!'3d$jEv$F$i$l$?%\%j%e!<%`L>!"%(%i!<;~$O%V%i%s%/!#(J
'$B0z?t!'%I%i%$%VL>!#(J
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error GoTo Err_PF_WNetGetUniversalName
    
    Dim W_Ret As String
    
    Dim W_WNetGetUniversalName As Long
    Dim W_lstrcpy As Long

    Dim W_BufSize As Long
    Dim W_Buf(1000) As Long
    Dim W_UNC As String * 1000
    
    W_BufSize = 1000
    
    W_WNetGetUniversalName = WNetGetUniversalName(InDriveName, 1, W_Buf(0),
W_BufSize)
    W_lstrcpy = lstrcpy(W_UNC, W_Buf(0))
    
    W_Ret = W_UNC

Exit_PF_WNetGetUniversalName:
    PF_WNetGetUniversalName = W_Ret
    Exit Function

Err_PF_WNetGetUniversalName:
    W_Ret = ""
    MsgBox format(Err, "00000") & ":" & Error$
    Resume Exit_PF_WNetGetUniversalName
    
End Function