Windows2000 VB6(SP5)を使用しています。
VB上から、テキストエディタを起動させて、指定ファイルをエディタで表示させるプログラムをつくりました。
が、デスクトップ上のファイルが、ノートパッドでは正しく開けましたが、他のエディタでは開くことが出来ない又は対象ファイルが正しく開けませんでした。
対応策を教えて下さい。
試したエディタは、ノートパッド・スペース・MIFES・ワードパッドです。
ソース抜粋
s = String(256, vbNullChar)
s = "エディタの実行ファイル名"
s = s + " "
s = s + "D:\Documents and Settings\以下対象ファイルのあるパス\対象ファイル名"
Shell s, vbNormalFocus
sExe = "e:\space\space.exe"
sPrm = "D:\Documents and Settings\以下対象ファイルのあるパス\対象ファイル名"
ret = ShellExecute(App.hInstance, "open", sExe, sPrm, _
vbNullChar, SW_NORMAL)
s = String(256, vbNullChar)
s = "エディタの実行ファイル名"
s = s + " "
s = s + "D:\Documents and Settings\以下対象ファイルのあるパス\対象ファイル名"
batName = App.Path + "\" + "editor.bat"
fileNum = FreeFile
Open batName For Output As #fileNum
Print #fileNum, s
Close #fileNum
Shell batName, vbHide
Notepad 以外のエディタがファイルパスを渡すときに規則を(たとえば半角スペースが入っているならダブルクォーテーションでかこむとか…)つけている場合があります。
エディタ側の仕様を確認してみてください。
書き込みが遅れてしまいましたが、
確認して、試したところ、起動できました。
ありがとうございました。