いつもお世話になっています。
最近になって、VB6のDir関数を実行するとき、実行時エラー52が発生します。
既存のプログラムに、メール送信機能を追加しました。
このとき、BASP21をインストールしました。
これ以外のプログラムのインストールはWindowsUpdate以外はかかっていません。
皆さん、このような現象は体験されていますでしょうか?
解決策をご存知の方、ご教授願います。
BASP21が悪いのかと思い、アンインストールしましたが、現象は再現します。
VB6の再インストールをしましたが、再現します。
以上よろしくお願いします。
No.3ベストアンサー
- 回答日時:
私も先週末、全く同じ内容 = Dir 関数で 52 エラーが、立て続けに
2 件出て、焦りまくった者です。
自分のところの場合、Dir 関数をフォルダ or ファイルの存在チェックに
用いていたのですが…
引数にネットワーク越しのパス = \\+コンピュータ名 or IP アドレスから
始まる文字列を指定すると、場合によって、エラーになりました。
通常、Dir 関数は、引数で渡したフォルダ or ファイルが存在しないと
空白を戻しますが…
引数に、ネットワーク越しの共有フォルダ or ファイルを指定すると
アクセス可能な状態である場合は良いのですが、そうではない場合、
52 エラーになるようです。
また、ローカルのパスでも、パスとして無効な文字列だと、これまた
場合によって、52 エラーになる場合があります。(ただ、ならない場合も
あるんですよね~)
C:: ⇒ 52 エラー
C\\ ⇒ 正常(空白を戻す)
FileSystemObject の FileExists、FolderExists メソッドだと、
上記のようなことはないので、現在、置き換え中です。
nobupapa さんの状況には当てはまらないかもしれませんが、
一例まで。(-_-)b
こんにちは
回答ありがとうございます。
同じロジックを、別のPC(同一ハブの隣のPC)で試したところ、エラーが出ませんでした。
Masu-Chinさんの指摘された、ネットワーク越しが引っかかりますね
ケーブル変えてみようかな?
やはり、PC固有の問題でしょうか?
もう一度、VBをインストールしてみようかと考えています。
ちょっと、先になりますが。
結果がでたら、報告します。
No.2
- 回答日時:
はじめまして
コードを拝見しましたがc_sINIPATHはディレクトリではないでしょうか?
その有無を見るのなら
If Dir(App.Path & "\c_sINIPATH, vbDirectory) = "" Then
というようにすればいいと思います、
Dir関数の初期値は0:通常ファイルなので、
ファイルの有無を見るのであれば、ファイル名まで記述してください。
はじめまして
回答ありがとうございます。
じつは、別件、至急案件があり、まだANo.2さんの処理を試していません。
結果が出次第、ご報告させてもらいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン Windows 10 動作改善方法 6 2023/04/26 22:30
- その他(悩み相談・人生相談) Windows10のブルースクリーンからの復旧について 2 2022/12/31 20:42
- Windows 10 数年前からWindows10 の Update ができないです。なぜですか? 7 2022/11/09 06:03
- FX・外国為替取引 MQL5にて謎のエラーが発生!だれか対処を教えてください! 1 2023/03/25 15:59
- システム 古いWEBシステム。もう追加プログラムは作れない? それともできる? 6 2022/06/08 13:41
- Windows 10 Windows 11の累積更新プログラム KB5016629 がインストール出来ない。 2 2022/08/16 12:23
- Evernote Evernote(エバーノート)の文字化け 1 2022/04/05 19:30
- Windows 10 SONYの音楽ソフト「x-アプリ」について 3 2023/01/29 19:09
- その他(Microsoft Office) Offece Home&Business2016をアンインストールする方 1 2022/04/08 23:23
- Windows 10 パソコンが立ち上がりません 6 2022/10/06 00:30
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
お助けください!VBAのファイル名エラーについて
Visual Basic(VBA)
-
昨日まで動いていたエクセルのマクロが急に動かなくなりました
Excel(エクセル)
-
ファイルの有無を確認した際のエラーについて
Visual Basic(VBA)
-
-
4
EXCEL VBAのDir関数について
Excel(エクセル)
-
5
On ErrorでエラーNoが0
Visual Basic(VBA)
-
6
VB6にてネットワーク上にある共有フォルダを・・・
Visual Basic(VBA)
-
7
VB6のAttribute VB_Nameの意味について
Visual Basic(VBA)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
実行時エラー52
Excel(エクセル)
-
11
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
VB6.0でのバイナリデータの扱いについて
Visual Basic(VBA)
-
14
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
15
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
16
配列を関数に渡す方法
Visual Basic(VBA)
-
17
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
18
テキストファイル操作 実行時エラー '52'
Visual Basic(VBA)
-
19
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
-
20
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
gccを行ってもexeファイルが生...
-
ACCESS VBAでのインポート
-
Returnに対するGoSubがありません
-
Excelファイルのマクロによる排...
-
FTPの送信結果を検知したい
-
VB6 Dir関数で52エラー発生
-
excel VBA webからデータを取り...
-
freadでデータがない場合の読込...
-
エクセルマクロでエラーの原因...
-
ワークブックに名前をつけて保...
-
「複数の選択範囲に対して実行...
-
ファイルクローズ(fclose)でエ...
-
VBから参照できないCのDLLを使...
-
【COBOL】read文でエラー
-
エクセル VBA dll 読み込...
-
ExcelVBAで既に開いてるwordを...
-
データベースソフトのアクセス2...
-
Excelのファイルが開けま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
gccを行ってもexeファイルが生...
-
「パス名が無効です」の発生原因
-
Returnに対するGoSubがありません
-
アクセスのクエリでコンパイル...
-
NAS上のファイルの使用中が解除...
-
VBから参照できないCのDLLを使...
-
PowerShellを使って関連付けら...
-
Adobeのプレミアプロの書き出し...
-
EXCELのVBAでWORDが開いてある...
-
FTPの送信結果を検知したい
-
access テキストボックスの値取得
-
エクセルマクロでエラーの原因...
-
【COBOL】read文でエラー
-
VB6 Dir関数で52エラー発生
-
VBA ExecuteExcel4Macro 型が一...
-
Access2013にてドラッグ&ドロ...
-
freadでデータがない場合の読込...
-
ファイルクローズ(fclose)でエ...
おすすめ情報