>　ASD様
>　
>　レスありがとう御座います
>　エクセルのVBと絡めて
>　Sub　test()
>　
>　Dim　Xmemo
>　Dim　strS　　　As　String
>　Dim　oShell　As　Object
>　Dim　FSO　　　　As　Object
>　Set　FSO　=　CreateObject("Scripting.FileSystemObject")
>　Set　oShell　=　CreateObject("WSCript.shell")
>　
>　strS　=　FSO.GetFile("C:\Program　Files\Personal　Communications\pcsft5.exe").ShortPath
　&　_
>　"　"　&　_
>　FSO.GetFile("C:\Program　Files\Personal　Communications\Private\TEST.TTO").ShortPath
>　Xmemo　=　oShell.Run(strS,　1,　True)
>　
>　Set　oShell　=　Nothing
>　Set　FSO　=　Nothing
>　
>　End　Sub
>　
>　で転送していたんです。
>　そこで上記の問題になりました
>　6.0では問題ないのですね。羨ましいです

失礼しました名前間違えました