サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
|
