
VB初心者の者です。
ネットワーク上にある共有フォルダ有無をチェックするプログラムを作ろうとしています。
If Dir$("\\パソコン名\共有フォルダ名", vbDirectory) <> "" Then
'共有フォルダが確認できた時の処理(A)
Else
'共有フォルダが確認できなかった時の処理(B)
End If
上記プログラムを実行したところ、ErrorNo.52 「ファイル名または番号が不正です」というエラーで落ちてしまいます。
A、Bのどちらにも入ってきません。
「パソコン名\共有フォルダ名」は、エクスプローラ上から見えています(Pingも通ります)。
ネットワークドライブを割り当てる方法もあるのですが、事情によりその方法はNGなため、「\\パソコン名\共有フォルダ名」で何とかできないか模索中です。
参照先PCの設定で、接続を許可するユーザーの設定のようなものがあるのでしょうか。
解決策をご存知の方がいらっしゃいましたら、ご教示お願いします(アドバイス等何でも結構です)。
環境は、参照先・元のPC共にWindows2000(SP4)、言語はVB6(SP6)、会社内のLANにて実行しています。
よろしくお願いいたします。

No.1ベストアンサー
- 回答日時:
せっかく VB6 なんだから Dir とか古くて貧弱な関数じゃなくて、FileSystemObject を使ったらどうでしょうか?
Private Sub hoge()
On Error ErrorProc
Dim fso As New Scripting.FileSystemObject
If fso.FolderExists("\\serverName\shareName") Then
' 存在した場合の処理
Else
' 存在しなかった場合の処理
End If
ExitProc:
Exit Sub
ErrorProc:
' エラーだった場合の処理
Resume ExitProc
End Sub
返事が遅れて申し訳ありません。
temtecomai2さんのおっしゃる通りにやってみたら、できました!!
助かりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VB6.0でネットワークドライブの接続・切断
Visual Basic(VBA)
-
ネットワーク上のフォルダにアクセスする
Visual Basic(VBA)
-
ネットワークフォルダが開かない
Visual Basic(VBA)
-
-
4
VB6.0 パスが見つかりません
Visual Basic(VBA)
-
5
VB6 Dir関数で52エラー発生
Visual Basic(VBA)
-
6
ネットワーク上でのファイル操作(VB6)
Visual Basic(VBA)
-
7
VB6 配列を初期化したい
Visual Basic(VBA)
-
8
CloseとDisposeの違い
Visual Basic(VBA)
-
9
複数のパソコン間のDir関数について
Visual Basic(VBA)
-
10
VBA ネットワーク上のファイルでカレントフォルダを取得するには?
Visual Basic(VBA)
-
11
[VB6] フォームを閉じる方法について
Visual Basic(VBA)
-
12
VB6のメモリ解放に関して
Visual Basic(VBA)
-
13
お助けください!VBAのファイル名エラーについて
Visual Basic(VBA)
-
14
会社のネットワーク上のファイルを開けない こんにちわ 今大変困ってます 会社のネットワーク上のファイ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
private subモジュールを他のモ...
-
vbaのエラー対応(実行時エラー...
-
【C#/Java?】try-catchでcatch...
-
特定の名前のオートシェイプの...
-
UWSCのTHREADについて
-
VBA 複数の行を高速で削除する...
-
UWSCについて
-
RaiseEventのメリット
-
途中で処理を中断させたい (ア...
-
フォルダのアクセス権確認について
-
COBOL OCCURSで指定したデータ...
-
エクセルVBAでロックをかけたい
-
エクセル VBAで複数セル選択時...
-
【VBA】エラー処理で別プロシー...
-
【C#】Page_Loadさせない方法に...
-
シグナル 6(SIGABRT)とは?
-
メモリ不足になった後の処理
-
VB6にてネットワーク上にある共...
-
VB6のロストフォーカス時の処理...
-
バッチファイルでのエラー処理...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
vbaのエラー対応(実行時エラー...
-
private subモジュールを他のモ...
-
マクロで、次のコードへ行く前...
-
シグナル 6(SIGABRT)とは?
-
特定の名前のオートシェイプの...
-
IF文に時間(何時から何時ま...
-
どう増強すべきか
-
特定のファイルを他のプロセス...
-
Word VBA。各マクロの間に待ち...
-
どうやってもFor文を抜けてしま...
-
Excel VBA セルの名前があるか...
-
ExcelのVBAで、選択したファイ...
-
【C#】Page_Loadさせない方法に...
-
StatusStripの表示が更新されな...
-
途中で処理を中断させたい (ア...
-
エクセル VBAで複数セル選択時...
-
Functionで戻り値を複数返す方法
-
VBAでBook読み込み時の非表示方...
-
VBA 複数の行を高速で削除する...
おすすめ情報