新規投稿 記事一覧 ホーム
●ご利用方法,ご利用に際しての規約はこちらをお読みください。
こちらからの投稿は、先頭に表示されているコメントへの返信になります。
RE:PCOMの転送　ID/Passwd Mew さん [ 5月29日(木) 8時36分 ]

    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では問題ないのですね。羨ましいです

    RE:PCOMの転送　ID/Passwd DG さん [ 5月29日(木) 17時51分 ]

      >　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では問題ないのですね。羨ましいです

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

■お名前
■パスワード
■e-mailアドレス
■タイトル
■ホームページ
■アドレス