ホスト名を取得する方法は？

解決

さくら 2004-04-20 02:22:41 No: 83075

ネットワークパスから対象のホスト名（コンピュータ名）を取得する方法しりませんか？
例のパスからホスト名のみを取得する関数ってありませんでした？
しっていたら教えて下さい。
＜例＞
\\HostName\Dir1\Dir2\File.txt
→HostNameのみを取得する

へいぽ 2004-04-20 02:27:31 No: 83076

\ や \\ などで検索して、
文字列を切り取ればすむ話では？

さくら 2004-04-20 02:31:06 No: 83077

\が/の場合などのことを考慮したかったので、
簡単に切り出せるような関数があればと思ったのですが。。。
以前使ったことがあるような気がしたのですが、思い出せなくて。
知っている方があればと思ったのですが。

マフユ 2004-04-20 05:40:08 No: 83078

Dim dat() As String
Dim tmp As String

tmp = "\\HostName\Dir1\Dir2\File.txt"
tmp=Replace(tmp,"/","\")
tmp=Replace(tmp,"\\","")

dat = split(tmp)
Debug.Print dat(0) 'HostName

さくら 2004-04-20 18:52:33 No: 83079

ありがとうございます。