MS ACCESS と SCP(Putty)の連携

質問

かなりの初心者です。

ACCESSのコードから、SCPで他PCとのファイルのやりとりをしたいです。
ACCESSは2002、SCPはPuttyの使用を予定しています。

1. ACCESSからSCPを実行するときは、Shell関数でPSCP.EXEをコールすれば実現できますか？
2. SCPが正常に終了したかをACCESS側で取得することはできますか？

助けると思ってアドバイスをください。
よろしくお願いいたします。

回答No.1

O_cyan

Private Sub Cmd1_Click()
　　Dim Ret1 As Long
　　Ret = Shell("C:\・・\PSCP.EXE", vbNormalFocus)
　　ShellEnd (Ret1)　　　　’終了するまで待機します。
　　MsgBox ("PSCPが終了しました。")
End Sub
プログラム名はフルパスでウインドウスタイルは省略可能です。

上記の方法で起動できない機種は下記を試して下さい。

Private Sub Command3_Click()
　　Dim Ret1 As Long
　　Dim MyFile As String
　　MyFile = Chr$(34) & "C:\・・\PSCP.EXE" & Chr$(34)
　　Ret1 = Shell(MyFile, vbNormalFocus)
　　ShellEnd (Ret1)　　　　
　　MsgBox ("PSCPが終了しました。")
End Sub

これで試してみてください。

お礼

回答どうもありがとうございます。

なんとか応用して、ファイル送信が実現できました。