VB6.0でFTPでのファイルの送受信(下記(1))をしようと考えております。
尚、コンポーネントは、インターネットトランスファコントロール(Inet)を使用しております。
(1)"リモートサーバーに対して、複数件のファイルを送信し、無事転送が完了したら(リモートサーバー
の指定フォルダに送信された複数件のファイルがあるのを確認後)、
 クライアント側のファイル(リモートサーバーに送信が済んだファイル)を消す"
という処理を考えております。

ここで、質問なのですが
(1)vbを使ったFTP転送で、複数件のファイルを一括転送(mputコマンドの使用)は、可能か?
 (2)もし、(1)が不可能の場合、
   "送信するファイルをputコマンドで1つ送って、リモート側にそのファイルがあるのを
   getコマンドで確認して、もしgetであれば、クライアント側のそのファイルを消す"
という処理を送信するファイル数分繰り返すことになるんですか?
   
   1つのファイルの場合に、Inet1_State_Changeイベントで、ループさせstate = 12 の時(
リモート側に正常に送信されたと考えて)、クライアント側のファイルを消していいのでしょうか?
   VBのヘルプを見ると、state = 12 は、get処理で使用するというようなことを書いてありますが。
   
以上 

このQ&Aに関連する最新のQ&A

A 回答 (1件)

フリーソフトのFFFTPを使用したことがありますか?


あれを見てみてはいかがでしょうか?
ソフトが送っているコマンドが見ることができます。

(1)一括は無理です。1ファイルずつの転送になります。
(2)そのとおりです、消して送信の処理が望ましいですが、消さないでも送信することができたと思います。

ちなみにFTPソフトを作成するのであればWinSockを使用したほうがよいと思います。未検証ですが、権限など更新(755みたいに設定すること)の情報はInetでは無理のような気が・・・
未検証なのでなんとも言えませんが、ぼくもFTPソフトを個人で作成中ですが、WinSockのコマンドを使用しています。
    • good
    • 0

このQ&Aに関連する人気のQ&A

FTP フリーソフト」に関するQ&A: ftp受信確認

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q「古い圧縮ファイル」の確認方法

Dドライブのディスクのクリーンアップをしたいのですが、実行できるものが、「古い圧縮ファイル」の削除しかありません。

「古い圧縮ファイル」がどのプログラムかを確認する方法を教えてください。

また、圧縮されたファイルの名前は青くなるらしいのですが、見つかりません。どうしてでしょうか
圧縮ファイルは1G弱あります。

Aベストアンサー

http://www.atmarkit.co.jp/fwin2k/win2ktips/106cleanup/106cleanup.html

初期設定では、50日以上アクセスの無かったファイルに対して、圧縮が行われます。
当然、圧縮してからでないと、ファイル名は青色にはなりませんので、ディスク・クリーンアップでの候補段階では、黒色のままです。


尚、設定によっては青色表示にならない場合も有りますけど。

http://121ware.com/qasearch/1007/app/nec.jsp?005084

QInet で FTP のファイル送信したときのファイル属性

Inet の FTP でサーバ(UNIX)へファイルを送信すると、
ファイル属性が(rw_r__r__)になります。
FFFTPを使っても同じなので、Inetの問題ではないのですが。
サーバ側の(.cshrc)ファイルでは、umaskは(002)です。
それなら、(rw_rw_r__)になっていいと思うのですが、どなたかどこに設定すればいいのか、ご存知でしたらお教えください。

Aベストアンサー

相手のホストの ftpd によって違います。

よくあるのは

・ftp が site コマンドの中で umask コマンドを実装している
・ftpd が起動するときの引数で指定できる

といったパターンです。詳しくは、サーバ側の ftpd のマニュアルを見てください。

因みに、

> サーバ側の(.cshrc)ファイルでは、umaskは(002)です。

.cshrc というファイルは csh が使うファイルですから、ftp で認証を受ける
ときには csh が使われるわけではないので、関係ありません。

Qファイルの圧縮方法

AVIやMPGの画像ファイルを圧縮する方法を教えてください。900mb位のファイルをCD-Rに落とし込める700mbまで圧縮したいんですが。できれば、zipやlzhなどの後で解凍しなくてはいけないような圧縮方法ではなく、多少画像が荒くなってもファイルを単純に縮小させるような方法を教えていただけると有り難いのですが。。
因みに、TMPGEncを試してみたんですが、どうもうまくいかなくて。。ファイルサイズが元のファイルより逆に大きくなってしまうんです。
すいませんが、宜しくお願いします。

Aベストアンサー

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450 450 くらいでカット。
対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331
ではでは!

追伸
カンタンにならrmファイルに変更かなあ
でも画質は落ちますよ
ネット配信 ストリーミング形式でどぞ!
RealplusG2とかRealEncoderで変換
でもaviでもないしmpegでもないですけど、どお?

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450...続きを読む

QVBクライアントからのサーバーファイルダウンロード

ファイルをダウンロードするシステム構築で困っております。
サーバーに保存しているPDFファイルをクライアントからダウンロード
し、Acrobatで開きたいのですが、ログオンやアプリケーション上での
権限認証のロジックを経由した後にダウンロードさせたいため、http
やftpで公開することができません。
また、VB 6.0から開く必要があります。

現在は、
・サーバー(ASP)側でダウンロードのページを用意する。(後述)
・クライアント(VB6)で用意したページを開く。
ということでファイルのダウンロードとAcrobatの動作はできていますが、
・ブラウザの画面を閉じることができない。
・サイトのURLが残る。
ということで問題があります。

サイトのURLを表示せずにダウンロードを行い、ダウンロード後は画面を
閉じるか、ウインドウを表示せずに同一の機能を満たす方法はないでしょ
うか?

■実行環境
サーバー Win 2003 SP1 + ASP
クライアント Win XP SP2 + VB 6.0 + Internet Explore 6.0

■サーバーのスクリプト(http://server/download.asp)
<%
'' ログオン名の取得やログオン名に応じたアクセス制御
'' はこの部分に追加
Dim objStream
Dim strFilePath
Const adTypeBinary = 1

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
strFilePath = "d:\folder\pdffile.pdf"
Response.AddHeader "Content-Disposition", _
"attachment; filename=pdffile.pdf"
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream = null
%>

■VB6での起動
ret = ShellExecute(hwnd, "Open", "http://server/download.asp", _
"", "", vbHide)

よいアドバイスございましたらよろしくお願い致します。

ファイルをダウンロードするシステム構築で困っております。
サーバーに保存しているPDFファイルをクライアントからダウンロード
し、Acrobatで開きたいのですが、ログオンやアプリケーション上での
権限認証のロジックを経由した後にダウンロードさせたいため、http
やftpで公開することができません。
また、VB 6.0から開く必要があります。

現在は、
・サーバー(ASP)側でダウンロードのページを用意する。(後述)
・クライアント(VB6)で用意したページを開く。
ということでファイルのダウンロード...続きを読む

Aベストアンサー

ここにExcelVBAでサーバにあるCSVファイルをダウンロードさせるサンプルがあります。
CSVファイルのURLを指定してブラウザを起動せずにダウンロードする部分は利用できると思います。
バイナリ取得なのでファイルのタイプには依存しません。

Qファイルの圧縮方法が解りません

窓の杜やベクター等に置かれている、フリーの圧縮、解凍ソフトをダウンロードしていますが、テキストファイルや、画像ファイルの圧縮方法が解りません。何方か教えて頂けませんか?

Aベストアンサー

ソフトの開発者のサイトで質問することをお奨めします。

ソフトごとに操作方法が異なりますので、使用しているソフト名すらない状態では誰も必要とする回答を出せません。

窓の杜やベクターでは開発者のサイトへのリンクがありますから、そこからアクセスできますよ。

Q[VB6.0] Inet OpenURLのエラー検出

VB6.0

InetコントロールでOpenURLを実行した時、404(File Not Found)等のエラーを検出する方法はありますか?

Aベストアンサー

すみません、ResponseCode や ResponseInfo はクライアント側のエラーでした。
GetHeaderでHTTPレスポンスのヘッダを取得できます。
HTTPヘッダの1行目がHTTPステータスなので、「HTTP/1.0 404 Not Found」などが入ります。

以下を試してみてください。

-----------------------------------
Private Sub Command1_Click()

  Dim strURL As String

  '存在しないアドレス
  strURL = "http://www.msn.co.jp/hadfhg.htm"

  Inet1.OpenURL strURL
  Debug.Print Inet1.GetHeader

End Sub
-----------------------------------
※存在しないURL「http://www.msn.com/hadfhg.htm」は、msn.comサーバーの仕様なのか、なぜかバイナリデータを返してくるようです。
バイナリを受け取るようにすれば良いと思いますが、上記ではとりあえずmsn.co.jpにしてあります。

すみません、ResponseCode や ResponseInfo はクライアント側のエラーでした。
GetHeaderでHTTPレスポンスのヘッダを取得できます。
HTTPヘッダの1行目がHTTPステータスなので、「HTTP/1.0 404 Not Found」などが入ります。

以下を試してみてください。

-----------------------------------
Private Sub Command1_Click()

  Dim strURL As String

  '存在しないアドレス
  strURL = "http://www.msn.co.jp/hadfhg.htm"

  Inet1.OpenURL strURL
  Debug.Print Inet1.GetHeader

E...続きを読む

Qpsdファイルの圧縮方法

psdファイルの圧縮方法を教えてください。(基本的質問で恐縮ですが)
win98です。なお、ファイルは9MB程度ですが、圧縮したものを解凍する際、鮮明度が落ちずに元通りの画像で開けますでしょうか?

Aベストアンサー

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (デフォルトでは 1.2MB を上限として分割される。)
   (このサイズは +Lhaca で変更できる。)
 5. (4)のファイル全てを、容量を超えないようにメールに添付して送信
   する。
   (添付ファイル総数を本文に明記すること。)
 6. 受け取った側は、全ての添付ファイルを一箇所に集めて、バッチファ
   イルを実行する。
   (操作手順は、本文に明記すること。)
 7. 分割されたファイルが結合されるので、結合された圧縮ファイルを解
   凍する。
 8. 9MBのファイルが解凍されるので、作業する。


これでどうかな!?

※他の圧縮ソフトも分割機能が備わっていると思うが・・・

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (...続きを読む

QVBでFTPサーバ側のファイルの更新日時を取得したい

質問があります。
どなたか御教授ください。よろしくお願いします。


【質問】
FTPにて、サーバー側(OS:Solaris LANG:japan TZ:JST )にあるファイルの
更新時間を取得したい。
クライアント(OS:Win2k VB5)

【現状】
Windows標準のwininet.DLLを使用して手製のFTPツールを作成したのですが
サーバー側の情報を取得した所文字化けします。
これはEUC→SJIS変換にて対応しようとしたのですが、VBはエンコーディングが
弱いためこれも手製のエンコーダーを作成したところバグりまくっています。
また、wininet.DLLが日本語に弱い?ためサーバー側をAmerica仕様にしても
日本仕様でわざわざ取得してきます。

Aベストアンサー

以下のHPを参考にするとうまくいきそうな気がします。
取得したファイルのFILETIME構造体をCurrencyに
コピーする作業がいりますけど。
参考にしてください。

http://vbvbvb.com/jp/gtips/0101/gFtpFindFirstFile.html
http://plaza5.mbn.or.jp/~heropa/vb16.htm

QNTFS圧縮したファイルを全部まとめて戻す方法

NTFS圧縮したファイルをプロパティからひとつひとつチェックをはずして戻すのではなく、圧縮されたファイルを全部まとめて元に戻す方法ってあるのでしょうか?

Aベストアンサー

圧縮を解除したいファイルを全て選択した状態で
→プロパティ→NTFS圧縮のチェックを外す→OK

それらのファイルがフォルダに入っているなら
フォルダのプロパティからやってもいい。
(サブフォルダにも適用するか尋ねられるからOKにする)

Q[VB.2005]クライアントからWEBサービス呼び出し

Javaで作られている外部のWEBサービスに、VB.NETのWindows
アプリケーションからアクセスして戻り値を取得したいのですが、
方法がわかりません。
(ASP.NETのWEBアプリ開発において、WEBサービスをオブジェクト
として登録し、呼び出すということはやったことがあるのですが、
今回はあくまで、Windowsアプリケーションから要求を投げたいんです)

ご存知の方、実現方法のヒントをご教授ください。

Aベストアンサー

Webサービスにも色々な種類があります。

プロトコルで、REST, SOAP, RPCなど
データ形式で、XML, JSON, HTML, CSV, プレーンテキストなど

SOAP/XML Webサービス + WSDL
http://www.atmarkit.co.jp/fdotnet/dotnettips/298aspamazonsvc/aspamazonsvc.html

REST/XML Webサービス
http://www.atmarkit.co.jp/fdotnet/vsexpress/vsexpress_02/vsexpress_02_03.html


人気Q&Aランキング

おすすめ情報