ようかんマンがC/C++の宿題を片付けて見せます 26棹

>522
ありがとうございます♪
下記ソースです。
本来はタイムアウト処理等はいっていますが
下記で現象が発生しています。
Sub deletefile()
With FrmWpmSignImage
'FTP設定
.Inet1.Protocol = icFTP
.Inet1.UserName = comm_item1.ftp_up_user
.Inet1.Password = comm_item1.ftp_up_password
.Inet1.RemoteHost = comm_item1.ftp_up_hostname
executeInet "DELETE " & comm_item1.ftp_up_img_backcntdir & _
comm_item1.ftp_up_img_backcntfile
.Inet1.Cancel
End With
End Sub
'******************************
Public Sub executeInet(strCommand As String)
Dim time2 As String
Dim lRetry
With FrmWpmSignImage
'コマンド実行
.Inet1.Execute , strCommand
Do While .Inet1.StillExecuting
DoEvents
Exit Do
Loop
End With
End Sub