ペイントの起動について (ID:81909)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6でプレゼンテーションソフトを作成しております。 windowsの持っているペイント（mspaint.exe）を起動する ボタンを付けました。 インストールファイルも作成したのですが，win9x系，2000，XPで mspaint.exeのあるフォルダが違うので，下記のようにしましたが， ２０００では，うまく起動しません。（OneMore: のところです） 9x系，ＸＰでは大丈夫なんですが・・・・。 どなたか ご教授頂きたいのですが，よろしくお願いします。 Private Sub cmdDrow_Click() 'お絵かき Dim Ret As Long Dim MyFile As String On Error GoTo nextChance: MyFile = Chr$(34) & "C:\Program Files\Accessories\MSPAINT.EXE" & Chr$(34) Ret = Shell(MyFile, vbNormalFocus) Exit Sub nextChance: On Error GoTo OneMore MyFile = Chr$(34) & "C:\windows\System32\mspaint.exe" & Chr$(34) Ret = Shell(MyFile, vbNormalFocus) Exit Sub OneMore: On Error GoTo ErrExit MyFile = Chr$(34) & "c:\WINNT\System32\mspaint.exe" & Chr$(34) Ret = Shell(MyFile, vbNormalFocus) Exit Sub ErrExit: End Sub