いつもお世話になっています。
VBAの記述で分からないところがあり、質問いたします。
次のようなメソッドを実行しています。
Call CreateObject("WScript.Shell").Run("explorer.exe /root, strFolderPath", 1, False)
Call CreateObject("WScript.Shell").Exec("explorer.exe /root, strFolderPath")
どちらも、実行すると目的のフォルダを表示してくれます。当該フォルダはネットワーク上にあるので、strFolderPathは \\PC_Name\SharedFolder のような記述になっています。
しかし、そのフォルダにあるファイルを右クリックすると、数十秒経過しないとショートカットメニューが表示されません。応答が極端に悪くなるのです。 一度応答が帰ってくれば、その後は普通の応答速度で処理できます。
どうしてこのような現象が起きるのでしょうか? また、解決(回避)する方法をご教授いただければ幸いです。 よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
間違っているかもしれませんが
Call CreateObject("WScript.Shell").Run("explorer.exe /root, strFolderPath", 1, False)
は
Sub test01()
strFolderPath = "C:\Documents and Settings\"
Call CreateObject("WScript.Shell").Run("explorer.exe /root, " & strFolderPath, 1, False)
・・
のような書き方になるのfではないですか。
この回答への補足
ご回答ありがとうございます。
ご指摘通りです。
私の記述した構文では、正しくは動作しない内容でした。
趣旨に影響が無いと思い、勝手な加工をしてしまいました。
すみません。
imogasiさんの環境では、エクスプローラー上の任意のファイルのショートカットメニューを表示するのに、どれくらいの時間がかかりますか?
直接エクスプローラーを起動してショートカットメニューを表示するのと比較してどうでしょうか?
引き続きご対応下される助かります。
よろしくお願いします。
No.1
- 回答日時:
>\\PC_Name\SharedFolder
の「PC_Name」について
これを名前でなくIPアドレスに変えてと、、、
---------------------------------
1回目の実行速度が改善される場合
---------------------------------
名前解決に時間がかかっているのでしょう。
DNSサーバを
※利用していないのであれば、これはどうしようもないかも知れません。
※利用しているのであれば、DNSサーバにその端末からIPアドレスを引けるように登録してあげましょう。
(環境が不明なので何とも言えません。)
---------------------------------
1回目の実行速度が改善されない場合
---------------------------------
画面が多いとか、コントロールが多いとか、単に重たいアプリなのでしょう。
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.ph …
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.ph …
あたりが参考になるかも知れません。
この回答への補足
ご回答ありがとうございます。
ご指摘のDNSについて、検証しました。
名前解決は正しく為されています。 IP指定、コンピュータ指定のどちらも、エクスプローラーが表示されるのに1秒程度と問題ない反応をしていますが、その中の任意のファイルを選択してショートカットメニューを表示しようとすると十数秒かかってしまいます。
1050YENさんの環境で、上記メソッドを実行した場合の応答速度は、いかがですか?
参考にお知らせくだされば幸いです。
引き続きお力添えください。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 Internet Explorer-11 を削除はしたけれど… 3 2022/06/20 17:54
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- WordPress(ワードプレス) [BuddyPress]試したいのですが! 3 2022/06/01 13:36
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
ホームページのリンクからプロ...
-
バッチファイルの内容を表示さ...
-
エクセル フォルダの画像を画...
-
Powershellとコマンドプロンプト
-
exeファイルを実行するとコマン...
-
「読み取りと実行」と「読み取...
-
シェルスクリプトの書き方
-
ネットワーク名が見つかりません
-
COBOLのイニシャライズとバリュ...
-
ブラウザーのリンクをクリック...
-
パワーポイントで外部exeファイ...
-
VBscriptが起動しない?
-
メッセージを他のPCに出したい
-
複数のbatファイルを自動実行し...
-
imacroで組んだマクロをバッチ...
-
windows10 デフォルトで開発出...
-
iPodのiTunesをインストール
-
VBAから複数のバッチファイルを...
-
NASに移したBATファイルからセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
「読み取りと実行」と「読み取...
-
VBscriptが起動しない?
-
バッチファイルの内容を表示さ...
-
Excel VBA ステップインが途中...
-
[teraterm] waitコマンドで停止...
-
エクセル フォルダの画像を画...
-
ネットワーク名が見つかりません
-
VB.NETでのDOSコマンドを実行に...
-
Excel(エクセル) VBA プロシー...
-
複数のbatファイルを自動実行し...
-
Excelのセルの内容をコマンドプ...
-
PDFファイルを開き、印刷し、閉...
-
Access の VBA 実行中に他の操...
-
これってパソコンの最適化が完...
-
バッチファイルが不正終了して...
-
VBA 既に開いているBookに継続...
-
VScodeのエラー解決法 Pythonの...
-
【VB.NET】exeを実行すると「発...
おすすめ情報