🚀 go-pugleaf

元記事がばけばけで読めないので、ＨＩＮＡさんの記事ににフォローさせて
頂きます。

In article <6b9tgr$k9v$1@tymwsv02.fitweb.or.jp>, HINA wrote:
>Masataka Nakagawa wrote in message
><01bd3141$5b988780$0d0314ac@9750967.hmw.mhi.co.jp>...
>>こんにちは。中川と申します。
>>
>>質問
>>クライアントPC の ドライブ がどこの ネットワークドライブパス に割り当てられているかを知る
>>プログラム
>>は作れますか。
>>例えば クライアントPC の F ドライブ に ネットワークドライブ "\\Ew220s02\d"
>>が割り当てられている
>>場合、引数に "F" を渡すと戻り値に "\\Ew220s02\d" を返すような プログラム。
>>
>>サーバ の OS は Windows NT サーバ Ver3.51 です。
>>
>>ご存知の方よろしくお願いします。m(_ _)m
>>
>ＷＮＥＴで始まるＡＰＩに多分あると思います。（ＡＰＩビューワで探してくださ
>い）

WNetGetUniversalName ですね。例えば、以下のようになるでしょうか。

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.
佐藤正宏 masahiro@cij.co.jp