投稿日 | : 2003/12/12(Fri) 16:12 |
投稿者 | : のっこ |
Eメール | : |
URL | : |
タイトル | : やっぱりフリーズします |
下のコードにしましたがフリーズになります。
ループでパスとファイルを取得させました。
>For lngCount = 1 To List1.ListCount では何もないデータを取得しているかと思います。
これでないと転送ができません。何故でしょうか?
For lngCount = 0 To List1.ListCount - 1
結果的に似たようなコードにしないとできません。
Private Sub List1_DblClick()
On Error Resume Next
Dim TensouS As String, TensouA As String
Dim TensouP As String, TensouT As String, Now As Long
TensouS = ReadINI("Tensou", "TensouS")
TensouA = ReadINI("Tensou", "TensouA")
TensouP = ReadINI("Tensou", "TensouP")
TensouT = ReadINI("Tensou", "TensouT")
MsgBox "アップロードします。", 65, "簡単FTP"
If ret = 2 Then
Exit Sub
Else
List1.ListIndex = 0
For lngCount = 0 To List1.ListCount - 1
Inet1.URL = "ftp://" & TensouS
Inet1.UserName = TensouA
Inet1.Password = TensouP
Form1.Caption = Filen1 & "を転送中"
Inet1.Execute , "CD " & TensouT ' ディレクトリの変更
Do While Inet1.StillExecuting = True
DoEvents
Loop
Filen = List1.List(List1.ListIndex)
Filen1 = Right(Filen, Len(Filen) - InStrRev(Filen, "\"))
Inet1.Execute , "PUT " & Chr$(34) & Filen & Chr$(34) & " " & Filen1
Do While Inet1.StillExecuting = True
DoEvents
Loop
fn = FreeFile
Open App.Path & "\" & "log.txt" For Append As #fn
Print #fn, Filen1 & "を転送。"
Close #fn
List1.ListIndex = lngCount
Next lngCount
List1.ListIndex = -1
Form1.Caption = "転送終了"
Now = Timer
While Timer < Now + 1 '1秒間待機する
DoEvents
Wend
Form1.Caption = "簡単FTP Ver.1.30"
End If
End Sub