VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/12/06(Wed) 20:50
投稿者： roku
Ｅメール：
ＵＲＬ：
タイトル： pcAnyWhere の OLE

よろしくお願いします。

現在、pcAnyWhereのOLEを使用してプログラムを書いています。
下記のようにした場合、接続はうまくいくのですが、
FileXferToHostメソッドが実行されたところで、処理が帰ってこなくなります。

Public Sub test()
    Dim strConnect As String
    Dim objRDM As Object
    Dim wait As Long
    Dim i As Integer

    strConnect = "C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere\Remotes\test.CHF"

    Set objRDM = CreateObject("AWREM32.APPLICATION")

    i = objRDM.awConnect(strConnect)

    wait = Timer
    While Timer < wait + 5
        DoEvents
    Wend

    'ここで落ちます。
    i = objRDM.FileXferToHost("C:\sample\sample2.txt", "C:\sample\sample.txt")
        
    i = objRDM.awDisconnect
        
    Set objRDM = Nothing
End Sub

現象としては、この方と同じことが起きていると思います。
http://www.tek-tips.com/viewthread.cfm?qid=1180454&page=7
（海外のサイトです。）
もし、yongbumさんの言っている「the appropriate mode ie」の内容が分かる、
というのであれば、それもぜひ教えてください。
適切な設定、と言われても・・・と思うんですが、
「ie」ってのが、どうも気になります。

どうぞ、よろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -