- 締切済み
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
- nahanaha
- お礼率77% (46/59)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- OKWebAdmin
- ベストアンサー率0% (0/5)
管理者より： 続きの質問があるのでそちらをご参照下さい
関連するQ&A
- 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
- アップロードができない
ローカルHDDにあるファイルをネット上にアップロードしたいため下記コードを作成したのですがコピーする事ができませんでした。 PC環境：WindowsXP ProSP1、VB6.0SP6です。 どうすればアップーロードできるのでしょうか？ どなたか御願い致します。 ///////////////////////////////////////////////////// Private InetState As Boolean Private InetError As String Private Sub Command1_Click() Inet.RequestTimeout = 2 Inet.UserName = "*" Inet.Password = "***" Inet.Execute "*", "PUT c:\11.txt 11.txt" Do DoEvents Loop Until InetState If InetError <> "" Then MsgBox InetError InetState = False Inet.Execute "*", "CLOSE" Do DoEvents Loop Until InetState InetState = False Inet.Execute "*", "QUIT" Do DoEvents Loop Until InetState Inet.Cancel Unload Me 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
- VB6.0でFTP接続するとき、UserNameに@が含まれる場合（訂正版）
VB6.0で、下のようなプログラムを組んでいるのですが、 UserNameに"@"が含まれる場合、 Execute時にはInet1に'@'が２つ入る事になり、 FTP接続ができません。 このような場合、どのように対処すれば良いのでしょうか？ Private Sub FtpUpload() With Inet1 .URL = "ftp://" & strFtpAddress & "/" ' URL .UserName = strUserId ' ユーザー名 .Password = strPass ' パスワード ' サーバーにファイルを送信 .Execute , "PUT " & _ strUploadFileName & " " & _ "wwwroot/" & strUploadFileName Do While .StillExecuting = True DoEvents Loop End With End Sub ※半角スペースは、全角スペースに置換しています。
- 締切済み
- Visual Basic
- コントロールに触れたら使用可能にしたい
通常は「使用可能」を「いいえ」にして、テキストボックスにカーソルが振れたら、使用可能を「はい」にしたいのですが Private Sub ID_Enter() Me.ActiveControl.Enabled = True End Sub Private Sub ID_GotFocus() Me.ActiveControl.Enabled = True End Sub Private Sub ID_LostFocus() Me.ActiveControl.Enabled = True End Sub Private Sub ID_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.ActiveControl.Enabled = True End Sub どれもクリックしないと動作しないようなのですが、このような場合、どのイベントを使えばいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 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
- ベストアンサー
- Visual Basic
- INETでFTPサイトのファイル検索
下記コードを実行すると「public_html」がメッセージ表示されます。 やりたい事として「public_html/cgi-bin/wk/」の中にファイルあるか検索したいのです。 .Execute , "dir" 上記を"cd public_html/cgi-bin/wk/"としてもメッセージは何も表示されませんでした。 どうすればファイルがあるか取得できるようになりますか？ PC環境はWindowsXP SP2、VB6.0SP6です。 With Inet .URL = "ftp://**/" .RequestTimeout = 2 .UserName = "***" .Password = "***" .Protocol = icFTP ' 接続方法を指定 .Execute , "dir" Do While .StillExecuting DoEvents ' 前の処理が終わるまで待機 Loop MsgBox .GetChunk(1024) End With 宜しくお願い致します。
- 締切済み
- Visual Basic
- InetコントロールHTTPでバイナリファイルをサーバにPUTする。
Inetコントロールを使用してHTTPでサーバ上にバイナリファイルを送信使用としています。 ExecuteメソッドのPUTを使用してみましたが、サーバ上のファイルサイズが0KBになってしまい、正常に送信されていません。 Dim bData() As Byte Dim intFile As Integer intFile = FreeFile() Open "D:\Temp\aaa.mdb" For Binary Access Read As #intFile ReDim bData(0 To LOF(intFile) - 1) 'ここでは、bDataに読み込めている。 Get #intFile, , bData Close #intFile Inet1.Execute "http://aaserver/files/aaa.mdb", "PUT", bData よろしくお願いします。
- 締切済み
- Visual Basic
- Functionの使い方が分かりません。
ACCESS 2013環境でVBAを使用しています。 プログラムが長い上、使用する箇所が多くて困っています。 Functionで、使いたい時だけ呼び出したいのですが うまく行きません。 二つのテキストボックスに入力された、文字を組み合わせて 文字列を生成するプロシージャを作成しています。 txt1の値が、岡山 txt2の値が、オカヤマ の時 先頭の文字列が ア行、続きは _岡山 となるよう AscW関数で文字コードで一度抽出し, select文で判別しています。 コードは --------------------------------------------- Private Sub コマンド1_Click() Dim kanji As String Dim katakana As Integer Dim sento As String Dim hensuu As String kanji = Me.txt1 katakana = AscW(Left(Me.txt2,1)) Select Case katakana Case 12450 To 12458 sento = "ア行" Case 12459 To 12468 sento = "カ行" ～(中略)～ Case Else End Select hensuu = sento & "_" & kanji MsgBox hensuu End Sub --------------------------------------------- となっています。 Select Case文が長いのと、複数のフォーム上で実行させるボタンごとに 同じコードを記述していて、最近Accessの起動が遅くなってきました。 Select文をFunctionから呼び出し、最終的にはモジュールから呼び出しに 書き換えたいのですが、書き方が良く分かりません。 試したコード --------------------------------------------- Function moji(ByRef katakana As Integer,sento As String) Select Case katakana Case 12450 To 12458 sento = "ア行" Case 12459 To 12468 sento = "カ行" ～(中略)～ Case Else End Select End Function Private Sub コマンド1_Click() Dim kanji As String Dim katakana As Integer Dim sento As String Dim hensuu As String kanji = Me.txt1 katakana = AscW(Left(Me.txt2,1)) sento = moji(katakana) hensuu = sento & "_" & kanji MsgBox hensuu End Sub --------------------------------------------- 多分、大きく間違っているのではないかと思うのですが どのように修正したらよいでしょうか
- ベストアンサー
- その他(データベース)
- エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン
エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。 実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。 Sub test() x = Application.Caller Select Case x Case "ボタン 1" MsgBox 1 Case "ボタン 2" MsgBox 2 Case "ボタン 3" MsgBox 3 Case "ボタン 4" MsgBox 4 End Select End Sub コントロールツールボックスは Private Sub CommandButton1_Click() MsgBox 1 End Sub Private Sub CommandButton2_Click() MsgBox 2 End Sub のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか？
- ベストアンサー
- オフィス系ソフト
