inetを使用してのFTP (ID:83608)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 個人的な意見として、Inetはやめておいた方がいいと思いますが、どうしてもと言うなら。 With Inet1 .URL = "ftp://" & wURL .RequestTimeout = wTIMEOUT .UserName = wUSER .Password = wPASS .Execute , "put " & wkFile & " " & wID & Format(Now, "YYYYMMDDhhmmss") End With Private Sub Inet1_StateChanged(ByVal State As Integer) Dim tData As Variant ' データを入れる変数。 Dim sData As String Debug.Print State '状態を書き出す Select Case State Case icResponseCompleted Do tData = Inet1.GetChunk(1024, icString) sData = sData & tData Loop While (Len(tData) <> 0) Text1.Text = sData End Select End Sub とでもして、イミディエイトウィンドウとＭＳＤＮのStateChangedのヘルプのState の値を 見ながらデバッグしたらいかがですか。 とりあえずCLOSEは Private Sub Command2_Click() Inet1.Execute "CLOSE" End Sub とでもして。 WinInetの方が「吉」ですよ。