タイトル : Re: フォルダ共有のチェック 投稿日 : 2010/01/15(Fri) 12:28 投稿者 : 花ちゃん
> フォルダが共有されているかをチェックしたいので > 色々探したのですが、VB.NETで書いた物しかみつかりませんでした。 > > 単にコピーして動かすとエラーするのですが、教えて頂けますでしょうか。 > Dim gchPath As GCHandle > ユーザー定義型は定義されていません。 中身については、知りませんが、VB.NET のコードであれば、まず、変数の型を変更して みて下さい。(ご自分で出来る範囲はご自分でやるようにしましょう) 下記に掲載の逆をすればいいかと。 http://hanatyan.sakura.ne.jp/dotnet/vb6tonet.htm Integer → Long や ByRef と ByVal 違い等にユーザー定義型を含めて変換してから、 エラーが出る個所や波線がでるところ等について解らなければ、質問されるように して下さい。 又、API 関数名で検索すれば、VB6.0 のサンプルも見つかるはずですが。 http://www.google.co.jp/search?hl=ja&rlz=1I7RNWN_ja&q=VB6+NetShareCheck&btnG=%E6%A4%9C%E7%B4%A2&lr=&aq=f&oq= 上記から探すと http://www.vbstation.net/sample/0215.htm のようなサンプルが。 他人が作成されたコードを無断でコピー&ペーストで投稿されると問題になりますので そのような場合は、参照先のリンクを貼るようにして下さい。 (元々は、有限会社 ガリバー さんが作ったサンプルのようですね、lngWin32apiResultCode の 変数名の書き方からして、VB6.0 のコードをVB.NET 用に書き換えたもののようですね) 検索していたら、下記のような方法も(試してはいません) 共有 でない場合は、エラーが発生。(エラー処理で取得) If Dir("\\コンピュータ名\共有フォルダ名\", vbDirectory) = "." Then '共有フォルダーです。 End if |