お世話になります、以下CreateShortcutメソッドについて引っかかってしまいましたので
ご存知の方、知恵を貸してください。
以下のようにAllUserデスクトップとAllUserプログラム下にショートカットを作成しようと考えています。スクリプトを実行すると、デスクトップにショートカットが作成され、ちょっと時間が経ってからもう一つデスクトップにショートカットが作成され、計デスクトップに二つ、プログラム下に1つ作成される状態になります。
この状態で再起動を掛けると表示はデスクトップに一つ、プログラム下に一つに戻っています。
いろいろと試行錯誤してはみましたが理由が分かりません。
一つショートカットを作成し、それをコピーすれば良い話ではありますが、原因が分かる方ご教授下さい。
以上、よろしくお願いいたします。
-----ここから-----
set objFS = Scripting.FileSystemObject
set objWshShell = WScript.Shell
Dim strFileName, strFileName1, objShortCut, objShortCut1
strFileName = objWshShell.SpecialFolders("AllUsersDesktop") & "\test.lnk"
strFileName1 = objWshShell.SpecialFolders("AllUsersStartMenu") & "\プログラム\test.lnk"
If not objFS.FileExists(strFileName) then
Set objShortCut = objWshShell.CreateShortcut(strFileName)
objShortCut.TargetPath = objWShShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\test\Bin\test.exe"
objShortCut.Save
end If
set objShortCut = Nothing
If not objFS.FileExists(strFileName1) then
Set objShortCut1 = objWshShell.CreateShortcut(strFileName1)
objShortCut1.TargetPath = objWShShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\test\Bin\test.exe"
objShortCut1.Save
end If
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
スクリプトの先頭2行を正しく書き、2バイトコードの空白を1バイトコードに直して試したところ、私のWindows XP SP2では問題ありません。
デスクトップに一つ、プログラム下に一つショートカットができました。推定ですが、ご質問のスクリプトは実際に動かしているものとは異なり、抜粋ではないでしょうか。「ちょっと時間が経ってから」という動きはここには見えません。もちろんWindowsか何かの不具合の可能性はありますが、私の環境では問題ありませんでした。
この回答への補足
ありがとうございます。
おっしゃるとおり抜粋のものになりますが、先頭行に2行追加し実行したところ現象は再現いたしました。
他のクライアントで現象が発生しないようであれば端末依存の可能性もありますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# c言語の問題です 3 2023/01/10 16:15
- Windows 10 Windows11の実行モジュールはどこにある 1 2022/05/31 07:33
- Visual Basic(VBA) セルの値からファイルを複数作りたい2 3 2022/10/07 15:54
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Chrome(クローム) サイトのショートカットアイコンの格納場所は? 1 2022/12/26 01:38
- Excel(エクセル) VBA 1 2023/04/27 13:37
- C言語・C++・C# 質問です 下記のコードを分かりやすく解説お願いします 初心者です #include ‹stdio.h 3 2022/05/26 22:03
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで4096点以上のFFTの方法
-
あるプログラムのコマンドライ...
-
ウイルスセキュリティ メッセー...
-
読み込み中にアクセス違反が発...
-
モジュール、アプリケーション...
-
未使用の変数を一括検索する方法
-
スポーツ施設での出来事で心配...
-
自動クエリとはどういうもので...
-
Notepad++の関数リスト表示でC...
-
Excelに埋め込んだVBAのプログ...
-
Vba UserFormを前面に出す方法...
-
binファイルってiphone専用です...
-
メモリ上にプログラムをロード...
-
VBで環境変数をSETする方法
-
画像を読み込むのと取り込むの...
-
VBAにてメール作成した際、一部...
-
C言語でのaccess violationに...
-
COBOLでMS-DOSコマンドの発行は?
-
C言語で実行時間を指定して終了...
-
インクリメント演算子のみを用...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
Excelに埋め込んだVBAのプログ...
-
「Outlookが他のプログラムによ...
-
VBAにてメール作成した際、一部...
-
Notepad++の関数リスト表示でC...
-
自動クエリとはどういうもので...
-
読み込み中にアクセス違反が発...
-
PICマイコンのコピー(クローン...
-
XnViewにwebpを「いつも開く」...
-
未使用の変数を一括検索する方法
-
VBAでユーザーフォームが自動的...
-
UWSCで指定のフォルダを開きたい。
-
パックマンプログラム
-
このプログラミング誰か教えて...
-
モジュール、アプリケーション...
-
Vba UserFormを前面に出す方法...
-
特定のwebサイトのタイトルや記...
-
ドロップダウンリストの文字を...
-
画像を読み込むのと取り込むの...
おすすめ情報