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

タイトル ： Re^4: パソコンの共有フォルダ取得
投稿日： 2010/10/18(Mon) 23:56
投稿者： にっちもさっちも
魔界の仮面弁士さんご回答大変有り難う御座います。
> http://www.vbstation.net/spec/S2_6.htm
サンプルダウンロードして取得する情報をレベル1まで落とす作業
多分出来たのではないかと思います。
多分と言うのは、殆ど理解出来ないまま、tSI502(0)→tSI1(0)等への変換して
偶然にもエラーが無くなり実行出来ました。
リストボックスに表示取得出来たのは、LANdisk、win7パソコン
何故かwinxpのパソコンが認識出来ず、
[5532]でハンドルされていないwin32の例外が発生しました。
と言うエラーが出力されるか、突然このパソコンを選択するとプログラムが終了します。

Unicode文字列の扱い方の事ですが、これがまたわからないのですが。
取得した情報が確かに???で表示されている物があります。
NetShareGetInfoの部分を抜き出したのですが、置き換え方法がわからないのですが、
教えて頂く事出来ますでしょうか。大変お手数おかけします。

    ShareGetInfo502 = NetShareGetInfo(StrConv(strNetShareServer, vbUnicode), _
                                      StrConv(strShareName, vbUnicode), _
                                      502, _
                                      lngBuffer)
Private Declare Function NetShareGetInfo Lib "netapi32.dll" (ByVal servername As String, _
                                                             ByVal netname As String, _
                                                             ByVal level As Long, _
                                                             bufptr As Any) As Long
    ShareGetInfo2 = NetShareGetInfo(StrConv(strNetShareServer, vbUnicode), _
                                    StrConv(strShareName, vbUnicode), _
                                    2, _
                                    lngBuffer)
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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