インターネット トランスファ (Inet) コントロールのGETコマンドで上書きするには？
VB6（SP6)のインターネット トランスファ (Inet) コントロールで
FTPサーバよりGETコマンドでファイルをローカルに取得
しようとしますが、取得先に既に同じファイルが存在すると
「ErrorCode:80 ファイルがあります。」とエラーが発生します。
ローカルにあるファイルを削除して実行すると上手くコピー
できました。既に存在するファイルに上書きするような
事はこのコントロールでは不可なのでしょうか？また
他に設定があるのでしょうか。
Private Sub Command2_Click()
With Me.Inet1
.URL = "ftpServer
.UserName = "user"
.Password = "userpass"
.Protocol = icFTP ' 接続方法を指定
.Execute , "GET test.dat c:\tmp\test.dat"
Do While Inet1.StillExecuting = True
DoEvents
Loop
.Execute , " QUIT" ' 接続を閉じる
End With
End Sub
--------------------------------------------------
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strMess As String
Select Case State
Case icError ' 11
' エラーを説明するテキストを取得します。
strMess = "ErrorCode: " & Inet1.ResponseCode & _
" : " & Inet1.ResponseInfo
MsgBox "" & strMess & "", vbCritical
End Select
End Sub
| ツイート |  |