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で質問しましょう!
似たような質問が見つかりました
- Windows 10 同じ部屋にある2台のPCで片方の共有フォルダが見えない? 2台のパソコン PC1とPC2があります。 3 2022/04/29 13:01
- ネットワーク ネットワーク資格情報について 2 2022/08/05 12:50
- ネットワーク 家庭内LANの2台のPC間で「ネットワーク資格情報の入力」で引っかかってフォルダが共有できない 1 2022/12/11 23:37
- Google Drive googleドライブ 共有フォルダ 表示 されない 2 2023/07/06 10:37
- Windows 10 外部ドライブにマウントできない問題について 9 2022/03/22 18:08
- システム パソコンの共有フォルダ移動について教えてください。 2 2022/04/07 10:14
- その他(OS) Windows11のファイル共有 1 2022/12/08 10:42
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 10:35
- その他(ビジネス・キャリア) 職場の共有フォルダ 2 2023/07/05 08:22
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VB6.0でネットワークドライブの接続・切断
Visual Basic(VBA)
-
ネットワーク上のフォルダにアクセスする
Visual Basic(VBA)
-
VB6.0 パスが見つかりません
Visual Basic(VBA)
-
-
4
VB6 Dir関数で52エラー発生
Visual Basic(VBA)
-
5
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
6
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
7
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Access(アクセス)
-
8
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
9
vb6のVSFlexGridで選択行、列の値を取得し構造体に入れたい
Visual Basic(VBA)
-
10
EXCEL VBAのDir関数について
Excel(エクセル)
-
11
VBプログラムの終了
Visual Basic(VBA)
-
12
VBPをダブルクリックするとたまに「メソッドは失敗しました " オブジェクト」と出るのですが?
Visual Basic(VBA)
-
13
テキストボックスの入力制限
Visual Basic(VBA)
-
14
pingを行うプログラム
Visual Basic(VBA)
-
15
frxファイルの役目
Visual Basic(VBA)
-
16
VB6でのファイル作成方法
Visual Basic(VBA)
-
17
任意のフォームが表示されているかを知りたい
Visual Basic(VBA)
-
18
VBから参照できないCのDLLを使用する方法
Visual Basic(VBA)
-
19
ファイルの有無を確認した際のエラーについて
Visual Basic(VBA)
-
20
配列を関数に渡す方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF文に時間(何時から何時ま...
-
どう増強すべきか
-
VBA 複数の行を高速で削除する...
-
Functionで戻り値を複数返す方法
-
ドリブン??
-
VBA For Each 〜 複数条件について
-
vbaのエラー対応(実行時エラー...
-
【C#/Java?】try-catchでcatch...
-
【VBA】エラー処理で別プロシー...
-
バッチファイルでカレントディ...
-
特定の名前のオートシェイプの...
-
VBA Vlookup #N/A表示させない方法
-
VBA ユーザーフォーム上にテロ...
-
C言語のGOTO文(組み込み系)
-
シートモジュールを複数作成す...
-
¥マークを含むパスの処理につ...
-
Excel VBA セルの名前があるか...
-
バッチファイルでのエラー処理...
-
マクロで、次のコードへ行く前...
-
ExcelのVBAで、選択したファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
IF文に時間(何時から何時ま...
-
private subモジュールを他のモ...
-
vbaのエラー対応(実行時エラー...
-
マクロで、次のコードへ行く前...
-
どう増強すべきか
-
特定の名前のオートシェイプの...
-
シグナル 6(SIGABRT)とは?
-
Excel VBA セルの名前があるか...
-
ExcelのVBAで、選択したファイ...
-
どうやってもFor文を抜けてしま...
-
シェルスクリプトでファイル内...
-
ドリブン??
-
特定のファイルを他のプロセス...
-
VB6にてネットワーク上にある共...
-
【VBA】エラー処理で別プロシー...
-
Functionで戻り値を複数返す方法
-
Word VBA。各マクロの間に待ち...
-
エクセル VBAで複数セル選択時...
-
VBA 複数の行を高速で削除する...
おすすめ情報