タイトル : Re: フォルダ共有のチェック 投稿日 : 2010/01/19(Tue) 22:21 投稿者 : 魔界の仮面弁士
> フォルダが共有されているかをチェックしたいので > 色々探したのですが、VB.NETで書いた物しかみつかりませんでした。 これでどうでしょう。 Private Sub Command1_Click() Dim shareList As Object Set shareList = GetObject("winmgmts:").ExecQuery( _ "SELECT * FROM Win32_Share WHERE Type=0") Dim share As Object For Each share In shareList Debug.Print share.Path, share.Name, share.Description, share.Status Next End Sub |