こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

投稿日時 - 2005-08-31 15:45:20

QNo.1617541

暇なときに回答ください

質問者が選んだベストアンサー

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=kb;ja;409931

投稿日時 - 2005-08-31 16:31:35

お礼

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

投稿日時 - 2005-09-05 10:04:02

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問