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

解決

---

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

ありがとうございます。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。