ローカルにあるファイルを、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
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Excel(エクセル) excelvbaのwithについて 4 2022/12/19 16:51
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- UNIX・Linux bash のファイルの読み込み方についてご質問 3 2023/05/15 20:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel マクロ PDF化の際のエラ...
-
複数のワークブックのVBAを変更...
-
動かなくなってしまった古いVBA...
-
エクセルのVBAで開いている...
-
AccessからOLEオブジェクト型の...
-
ffftpでファイル取得が0バイト...
-
VBAでフォルダ内のhtmlファイル...
-
【VBAマクロ初心者】Excel VBA...
-
vbaサブフォルダーをワイルドカ...
-
【ACCESS VBA】アクセスからデ...
-
ACTIVEXの拡張子
-
VBA ファイル名取得
-
VBAでCSVファイルを読み込もう...
-
Long型で表現できないファイル...
-
サブフォルダ含むフォルダ内の...
-
FileDialog オブジェクトでファ...
-
「エクセルファイルが開いてい...
-
FTP対応のアプリケーション
-
EXCEL VBA tif画像のプロパティ...
-
VB.net XMLの作成方法 Iniの代替
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
ffftpでファイル取得が0バイト...
-
動かなくなってしまった古いVBA...
-
excel マクロ PDF化の際のエラ...
-
VBからExcelファイルを開くとき...
-
「エクセルファイルが開いてい...
-
VBAでフォルダ内のhtmlファイル...
-
複数のワークブックのVBAを変更...
-
ExcelVBA 文字コード変換
-
Wordのプロパティ・総ページ数...
-
「AccessViolationException」...
-
AccessからOLEオブジェクト型の...
-
エクセルのVBAで開いている...
-
VBAで色々な種類のファイルを開く
-
VBAでCSVファイルを読み込もう...
-
VB.net XMLの作成方法 Iniの代替
-
【ACCESS VBA】アクセスからデ...
-
VBA、ファイル名検索から開く、...
おすすめ情報