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

投稿日： 2003/12/12(Fri) 19:31
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： これを試して下さい

新たに下記のコードを試して下さい。私の環境では問題なく動作しました。
Option Explicit
Private Sub Form_Load()
    List1.AddItem "c:\reg.txt"      'ファイルに合せて変更して下さい
    List1.AddItem "c:\readme.txt"   'ファイルに合せて変更して下さい
End Sub
Private Sub Command1_Click()
    Dim Filen    As String
    Dim Filen1   As String
    Dim lngCount As Long
    With Inet1
        'ここから
        .URL = "ftp://www.***************"  '変更可
        .UserName = "********"              '変更可
        .Password = "********"              '変更可
        .Execute , "CD " & "****/"          '変更可
        'ここまではご自分の環境に合わせて変更して下さい。
        
   '======= これ以降は変更しないで下さい。===============
        Do While .StillExecuting = True
            DoEvents
        Loop
        For lngCount = 0 To List1.ListCount - 1
            Filen = List1.List(lngCount)
            Filen1 = Right(Filen, Len(Filen) - InStrRev(Filen, "\"))
            .Execute , "PUT " & Chr$(34) & Filen & Chr$(34) & " " & Filen1
            Do While .StillExecuting = True
                DoEvents
            Loop
        Next lngCount
    End With
    MsgBox "ファイル転送が完了しました"
End Sub

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

- Web Forum -