タイトル : Re^2: パソコンの共有フォルダ取得 投稿日 : 2010/10/18(Mon) 14:58 投稿者 : にっちもさっちも
魔界の仮面弁士さんどうも有り難う御座います。 NetShareEnum APIなる物が調べる能力がありませんでした。 他に調べてみましたら、以下の物見つかりまして、 パソコンによっては取得出来るのですが、 殆どのパソコンで オートメーションエラーです。 グループ名が見つかりません。 とエラーします。 と言うエラーが出ます。 ちんぷんかんぷんで申し訳ないのですが、 教えて下さい。 Private Sub Command1_Click() Dim FileService As IADsFileService Dim FileShare As IADsFileShare Dim ComputerName As String List3.Clear ComputerName = "PC0" 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 End Sub |