サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ フォルダーが共有されているかをチェック(VB6.0) ( No.0 ) 　[親スレッドへ] 日時： 2015/02/11 19:23 名前： 花ちゃん *********************************************************************************** * カテゴリー：[フォルダー][エクスプローラ][]                                      * * キーワード：共有フォルダー,,,,,                                                 * *********************************************************************************** タイトル ： フォルダ共有のチェック 記 事 No ： 14375 投 稿 日 ： 2010/01/15(Fri) 11:21 元質問者 ： るしーる   フォルダが共有されているかをチェックしたいので 色々探したのですが、VB.NETで書いた物しかみつかりませんでした。 ----------------------------------------------------------------------------------- 記事No ： 14394 投稿日 ： 2010/01/19(Tue) 22:21 回答者 ： 魔界の仮面弁士   ----------------------------------------------------------------------------------- これでどうでしょう。 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

　[スレッド一覧へ]　[親スレッドへ]