FTPサーバからダウンロードする方法と解決方法
- FTPサーバからのダウンロード方法について説明します。Windows XP、VB6、SP5で開発している場合、以下のコードを使用してFTPサーバからファイルをダウンロードすることができます。
- ただし、上記のコードを使用してもダウンロードができない場合は、タイムアウトの問題が考えられます。タイムアウトが発生した場合、以下の解決方法を試してみてください。
- 1. ネットワーク接続の確認: ネットワーク接続が正常に行われているか確認してください。FTPサーバのアドレスが正しいことを確認し、インターネット接続が正常であることを確認してください。2. ファイアウォールの設定: ファイアウォールがFTP接続をブロックしていないか確認してください。必要に応じて、ファイアウォールの設定を変更してFTP接続を許可するようにしてください。3. タイムアウトの設定: タイムアウトの時間を変更してみてください。タイムアウトの時間が短すぎる場合、接続が切断される可能性があります。タイムアウトの時間を長めに設定してみてください。
- ベストアンサー
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
- KOHEI_JAPAN
- お礼率19% (58/305)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
OpenURL メソッドを使用するときは、URL プロパティを設定してから Password プロパティと UserName プロパティを設定してください。後から URL プロパティを設定すると、UserName プロパティと Password プロパティは "" に設定されます。 とありますがOKですか？ また、Inetコントロールはバグが多いようですし制限事項も多いのでので要注意を。 また、OpenURLはファイルサイズにも制限があるのでExecuteメソッドの方が確実かも。 http://homepage2.nifty.com/inform/vbmania/ もしだめなら、コマンドベースでちゃんと行くかどうかを確認して、問題点の切り分けを。
関連するQ&A
- 保存の仕方
こんにちは、次のようなアドレスを入力するとそのソースを表示するプログラムを作ったのですがこれで表示されるソースに名前を付けて保存することってできますか？お願いします。 Private Sub Command1_Click() Dim strUrl As String Dim strBuf As String Command1.Enabled = False strUrl = InputBox("URLを入力して下さい.") If (Len(strUrl) = 0) Then Exit Sub End If Command1.Enabled = True strBuf = Inet1.OpenURL(strUrl) Form2.Show Form2.Text1.Text = strBuf End Sub Function Getsource() As String Dim strBuf As String Dim strUrl As String strBuf = Inet1.OpenURL(strUrl) 'ファイル内容を取得 Getsource = strBuf End Function
- ベストアンサー
- Visual Basic
- フレーム分割のソース表示プログラムについて
以前次のようなプログラムを作ったのですが、これはURLを入力するとブラウザのソースを表示するものなので、フレームによって分割されたページのソースはすべて表示させることができません。このプログラムに何か追加して分割されていてもソースが表示できるようにしたいのですが。新たにコマンドを作ってやるしかないのでしょうか？何かアドバイスお願いします。 Private Sub Command1_Click() Dim strUrl As String Dim strBuf As String Command1.Enabled = False strUrl = InputBox("URLを入力して下さい.") If (Len(strUrl) = 0) Then Exit Sub End If Command1.Enabled = True strBuf = Inet1.OpenURL(strUrl) Form2.Show Form2.Text1.Text = strBuf End Sub Function Getsource() As String Dim strBuf As String Dim strUrl As String Dim strUrl2 As String strBuf = Inet1.OpenURL(strUrl) 'ファイル内容を取得 strUrl2 = InStr(strBuf, "frame src=") If strUrl2 > 0 Then strUrl3 = Mid(strBuf, strUrl2, 100) strUrl4 = Mid(strUrl3, 1, l) Getsource = strBuf End Function
- ベストアンサー
- Visual Basic
- FTP対応のアプリケーション
INETコントロールを使って、サーバとファイルの送受信をするアプリを作りたいのですが、基本的なところでつまづいています。 サンプルプログラムを見つけたので試してみているのですが。 以下。 Private Sub cmdDownload_Click() Dim GetBuf() As Byte Dim FileNum As Integer GetBuf() = Inet.OpenURL(txtURL.Text, icByteArray) FileNum = FreeFile Open txtSavePath.Text For Binary Access Write As FileNum Put #FileNum, , GetBuf() Close #FileNum MsgBox "ダウンロード終了" End Sub ここで、txtURL.Text に何を記述したらいいのか、はっきり分かりません。 サーバー名にファイルのあるディレクトリを付けた形、 ftp://servername/home/tmp/test.txt サーバーのＩＰアドレスにファイルのあるディレクトリを付けた形、 ftp://172.20.1.17/home/tmp/test.txt を試してみたのですが、うまくダウンロードできません。 目的のプログラムは Executeメソッドを使ってファイルの送受信をしたいのですが、どちらにしてもＵＲＬの記述ができないとダメなのですよね？ どうぞ、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VB6でテレビ番組表HTMLの保存
VB6の以下のプログラムで下記URLのテレビ番組表を保存しようとしたのですが、うまくできませんでした。ソースを開いてみるとEUC-JPとなっていまして、これが原因かと思うのですが、保存するにはどうしたら良いでしょうか？ よろしくお願いします。 ■URL http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05 ■プログラム Private Sub Command1_Click() Dim strURL As String ' 取得URL Dim strFileName As String ' ファイル名 ' URLとファイル名を代入する strURL = Text1.Text strFileName = Text2.Text ' 指定されたURLのドキュメントをファイルに出力する Open strFileName For Output As #1 Print #1, Inet1.OpenURL(strURL) Close #1 MsgBox strURL & "を" & strFileName & "に出力しました" End Sub
- 締切済み
- Visual Basic
- プログラムについて
今このようなプログラムを作っているのですが、わからなくて困っています。 Private Sub Command1_Click() Command1.Enabled = False 'タイマー無効 Text1.Text = GetSource() Command1.Enabled = True 'タイマー有効 Msg = "アドレスを入力して下さい" Title = "URL入力" Ret = InputBox(Msg, Title, "") End Sub Function GetSource() As String Dim strBuf As String Dim strURL As String strURL = "http://www.microsoft.com/japan/ms.htm" strBuf = Inet1.OpenURL(strURL) 'ファイル内容を取得 GetSource = strBuf End Function InputBoxにアドレスを書いてOKを押すと別ウィンドウでソースが表示されるプログラムを作りたいんです。お願いします。
- ベストアンサー
- Visual Basic
- ソース内の文字検索について
下にHPのソースを表示させるプログラムがあります。 これで表示されたソースの中からある文字を検索したいのですが、それってできますか？どうしたらいいんでしょうか、お願いします。 Private Sub Command1_Click() Command1.Enabled = False Text1.Text = GetSource() Command1.Enabled = True End Sub Function GetSource() As String Dim strBuf As String Dim strURL As String strURL = "http://www.microsoft.com/japan/ms.htm" strBuf = Inet1.OpenURL(strURL) GetSource = strBuf End Function
- ベストアンサー
- Visual Basic
- inetコントロールを使用したFTP送信の質問その1
ローカルにあるファイルを、FTPサーバに送信するプログラムを作成しました。 inetコントロールを使用して、以下のようなプログラムを組みました。 Private sub ftp() Inet1.Protocol=icFTP Inet1.Url="ftp://xxx.xxx.xxx.xxx/" Inet1.UserName="aaaa" Inet1.Password="bbbb" Inet1.Execute , "SEND x:\xxx\xxx.txt xxx/xxx.txt" End sub Private sub Inet1_StateChanged(Byval State As Integer) Dim sMsg As String Select Case State Case icRequestSent sMsg = "送信完了" TCall LogWrite(sMsg) ログをファイルに書く（自作関数） Case icError sMsg = Inet1.ResponseCode & " " & Inet1.ResponseInfo Call LogWrite(sMsg) エラーログをファイルに書く（自作関数） End Select End Sub ファイルを複数送信するため、「sub ftp()」は複数回呼び出されます。 上記プログラムにCLOSEコマンドとCANCELメソッドを追加して、以下のようにしたほうがよいのでしょうか？ CLOSEコマンドとCANCELメソッドの使い方がよくわからず、悩んでいます。 Private sub ftp() Inet1.Protocol=icFTP Inet1.Url="ftp://xxx.xxx.xxx.xxx/" Inet1.UserName="aaaa" Inet1.Password="bbbb" Inet1.Execute , "SEND x:\xxx\xxx.txt xxx/xxx.txt" Inet1.Execute , "CLOSE" End sub Private sub Inet1_StateChanged(Byval State As Integer) Dim sMsg As String Select Case State Case icRequestSent sMsg = "送信完了" TCall LogWrite(sMsg) ログをファイルに書く（自作関数） Case icError sMsg = Inet1.ResponseCode & " " & Inet1.ResponseInfo Call ErrLogWrite(sMsg) エラーログをファイルに書く（自作関数） Inet1.Cancel End Select End Sub
- 締切済み
- Visual Basic
- FTP接続での不具合
以下のコードでFTPへの接続を行っていますが、わからないところがあります。 （1）「リモートホストに接続できません」とエラーが出てしまいます。 どのあたりが怪しいのかわからず困っています。 （2）GET の書き方について "GET test.txt C:\Test\test.txt" ******** 受信するファイル名の指定の仕方ですが、上記の*******印部分ですが、 たとえばURLがpc000のTempフォルダの下にあるtest.txtを受信したい場合はディレクトリの指定の書き方がわかりません。 "GET /Temp/test.txt C:\Test\test.txt" と書いたりもしていますが、はたしてこの書き方があっているのかわかりません。 ご教示ねがえませんでしょうか？ よろしくお願いいたします。 'FTP接続------------------------------------- Inet1.URL = "FTP://pc000" Inet1.Password = "xxx" Inet1.UserName = "yyy" Text1.Text = Inet1.OpenURL Inet1.Execute Inet1.URL, _ "GET test.txt C:\Test\test.txt" '-------------------------------------
- ベストアンサー
- Visual Basic
- VBAでFTPサーバーへのアップデート
BASP21でのFTPサーバーへのアップデートが出来ないです。 BASP21をインストールし、サーバーのユーザー名やパスワードも あっている状態です。 しかし、アップデートすると 「を送信できませんでした。」 と表示され、アップデートできませんでした。 「FTP接続できませんでした。」は抜けているので、 それ以外が原因だとは思うのですが分かりません。 Visual Basicのサンプルから書きました。 以下の通りです。 初心者のため質問に不備があるかもしれません。 予めお許しください。 Sub FTPサーバーにUP() Dim FTP, rc As Long, Server As String, User As String, Pass As String Dim Target As String, Folder As String Set FTP = CreateObject("basp21.FTP") ''FTPオブジェクト Server = "ftp.●●●●●●.jp" ''ホストアドレス User = "●●●●●●" ''ユーザー名 Pass = "●●●●●●●●" ''パスワード Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル If Target = "False" Then Exit Sub Folder = "/home/●●●●●●/●●●●/●●●/状況" rc = FTP.Connect(Server, User, Pass) If rc <> 0 Then MsgBox "FTP接続できませんでした。", vbCritical FTP.Close Exit Sub End If rc = FTP.PutFile(Target, Folder) If rc <> 1 Then MsgBox Dir(Target) & "を送信できませんでした。", vbCritical FTP.Close Exit Sub End If MsgBox Dir(Target) & "を送信しました。", vbInformation FTP.Close End Sub
- ベストアンサー
- オフィス系ソフト
- VB.NETでサーバーからFILEを取得する
サーバー上にあるテキストファイルを FTPで取得したいのですが ＶＢであればInetを使用して↓のように取得が可能 だったのですがVB.NETでのInetの使用方法がわかりません どなたかご存知の方がいらしたらご教授願えますか？ また、別の方法がありましたらアドバイスをお願いします。 宜しくお願いいたします。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Dim FileName As String Inet.URL = "ftp://hostname/home/temp/" Inet.UserName = "username" Inet.Password = "password" Inet.Execute(, "GET test.txt " & FileName) Do While Inet.StillExecuting = True DoEvents() Loop MsgBox("ダウンロード終了") ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
- 締切済み
- Visual Basic
お礼
大変参考になりました。ありがとうございましたm(_ _)m