マシン名によるファイル検索をするには？ (ID:113813)

名前

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

本文 MSDNのヘルプでは・・・ ServerNameのところで、 This string must begin with \\. とあります。これは、UNC名にしろと言うことでは ないしょうか？ よって、 strServerName = "\\MARLU" と言うことになりますが。 尚、ADSIで実現する方法では・・・ Dim FileService As IADsFileService Dim FileShare As IADsFileShare Dim ComputerName As String List3.Clear ComputerName = List2.List(List2.ListIndex) Set FileService = GetObject("WinNT://" & ComputerName & "/LanmanServer") If FileService.Class = "FileService" Then For Each FileShare In FileService If Right$(FileShare.Name, 1) <> "$" Then List3.AddItem FileShare.Name 'Debug.Print FileShare.Path End If Next End If ちょっと乱暴なコードですが、これで取得できました。 環境や動作させるマシンで問題があるかもしれませんが。 参考までに。 以上。