tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。