VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/12/12(Fri) 14:14
投稿者： のっこ
Ｅメール：
ＵＲＬ：
タイトル： コード掲載

> ここまでの処理なら問題ないはずですが、これ以外に何か処理していませんか？
> プロシージャ内のコードをすべて投稿して見て下さい、こちらでも試してみます。
> 但し、変にコードを省略せずに事象が再現できるようにして下さい。
> 勿論、IDやパスワードは***で結構ですが。

再現できるか分かりませんが載せておきます。
変数で宣言がないのはプロシージャ外で宣言しています。
よろしくお願いします。

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 = 1 To List1.ListCount
    Inet1.URL = "ftp://" & TensouS
    Inet1.UserName = TensouA
    Inet1.Password = TensouP
    Form1.Caption = Filen1 & "を転送中"
    
    Inet1.Execute , "CD " & TensouT ' ディレクトリの変更
    
    Do While Inet1.StillExecuting = True
        DoEvents
    Loop
    
    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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -