FTPサーバからダウンロードするには？

windowsXP,VB6,SP5で開発しています。
下のコードはヘルプからなんですが、
これをURLとファイル名を変更してやってみても、全然できません。

Private Sub Form_DblClick()
Inet1.AccessType = icUseDefault
Dim b() As Byte
Dim strURL As String

' この URL は有効な URL であると仮定します。
strURL = "ftp://ftp.microsoft.com/" & _
"developr/drg/Win32/Autorun.zip"

' ファイルをバイト配列として取得します。
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\Temp\Autorun.zip" For Binary Access Write As #1
Put #1, , b()
Close #1
MsgBox "完了しました。"
End Sub


ここの部分でタイムアウトになってしまいます。
b() = Inet1.OpenURL(strURL, icByteArray)

FTPサーバのアドレスとかちゃんとあってます。
どなたか、解決方法をご教授くださいませm(_ _)m

No.1 ベストアンサー 回答者： OsieteG00 回答日時： 2005/08/31 16:31

OpenURL メソッドを使用するときは、URL プロパティを設定してから Password プロパティと UserName プロパティを設定してください。

後から URL プロパティを設定すると、UserName プロパティと Password プロパティは "" に設定されます。




とありますがOKですか？
また、Inetコントロールはバグが多いようですし制限事項も多いのでので要注意を。

また、OpenURLはファイルサイズにも制限があるのでExecuteメソッドの方が確実かも。

http://homepage2.nifty.com/inform/vbmania/


もしだめなら、コマンドベースでちゃんと行くかどうかを確認して、問題点の切り分けを。

参考URL：http://support.microsoft.com/default.aspx?scid=k …

この回答へのお礼

大変参考になりました。ありがとうございましたm(_ _)m

お礼日時：2005/09/05 10:04