いつもお世話になっています。
最近になって、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 VBAのDir関数について
Excel(エクセル)
-
VB6にてネットワーク上にある共有フォルダを・・・
Visual Basic(VBA)
-
-
4
昨日まで動いていたエクセルのマクロが急に動かなくなりました
Excel(エクセル)
-
5
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
6
On ErrorでエラーNoが0
Visual Basic(VBA)
-
7
ファイルの有無を確認した際のエラーについて
Visual Basic(VBA)
-
8
VB6のAttribute VB_Nameの意味について
Visual Basic(VBA)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
Dosブロンプトでtabを出力したい
その他(プログラミング・Web制作)
-
11
VB6 String型変数の文字数制限
IT・エンジニアリング
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
VB6.0 パスが見つかりません
Visual Basic(VBA)
-
14
VB6.0でのバイナリデータの扱いについて
Visual Basic(VBA)
-
15
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
16
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
17
配列を関数に渡す方法
Visual Basic(VBA)
-
18
エクセルVBA 「On Error GoTo 0」について
Excel(エクセル)
-
19
VB6.0で作成したexeファイルが他のPCではエラーが発生して動きません
Visual Basic(VBA)
-
20
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FTPの送信結果を検知したい
-
VB6 Dir関数で52エラー発生
-
Returnに対するGoSubがありません
-
ACCESS VBAでのインポート
-
batファイルでレジストリキーの...
-
アクセスのクエリでコンパイル...
-
freadでデータがない場合の読込...
-
【VB6.0】ファイルからサイズの...
-
EXCELでのXMLファイルのインポ...
-
DisplayAlertsブロパティで ”実...
-
DOCUMENT行の書き出しについて-...
-
エクセル Fill.UserPictureで...
-
すでにファイルが開かれている...
-
ファイルの有無を確認した際の...
-
Adobeのプレミアプロの書き出し...
-
Excelファイルのマクロによる排...
-
Access2010 コンパイルエラー...
-
OUTLOOK VBA 指定フォルダ内の...
-
PowerShellを使って関連付けら...
-
Excel 2003 のエラーメッセージ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
「パス名が無効です」の発生原因
-
access テキストボックスの値取得
-
アクセスのクエリでコンパイル...
-
PowerShellを使って関連付けら...
-
freadでデータがない場合の読込...
-
【COBOL】read文でエラー
-
gccを行ってもexeファイルが生...
-
ファイルクローズ(fclose)でエ...
-
VB6 Dir関数で52エラー発生
-
ACCESS VBAでのインポート
-
NAS上のファイルの使用中が解除...
-
FTPの送信結果を検知したい
-
エクセルマクロでエラーの原因...
-
Access2013にてドラッグ&ドロ...
-
EXCELのVBAでWORDが開いてある...
-
fcloseで発生するエラーについて。
おすすめ情報