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

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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