FTPサーバーからファイル情報を抽出するためのスクリプト

問題

あなたが以下のことで私を手伝ってくれるかどうか疑問に思います。

実行すると、一般的なアカウントとパスワードを使用して既存のftpサーバーにログオンし、文字列 "abc"で始まる特定のフォルダー内のファイルを一覧表示するスクリプトを作成します（任意の言語で最も簡単な言語）。 " ファイル名とその作成日は、csvファイル（または同様のもの）に抽出されます。 誰かが私を助けてくれるでしょうか。

溶液

これがスクリプトです。

ftp.Hostname = "ftp.test.com"

ftp.Username = "ユーザー"

ftp.Password = "合格"

'デフォルトのデータ転送モードは "パッシブ"ではなく "アクティブ"です。

'Passiveプロパティを設定してPassiveに変更します。

ftp.Passive = 1

'接続後にAUTH SSLセキュアチャネルを確立する

'標準のFTPポート21に。

ftp.AuthTls = 1

'Sslプロパティは暗黙的なSSL接続を確立するためのものです

設定しないでください。

ftp.Ssl = 0

'FTPサーバーに接続してログインします。

connectStatus = ftp.Connect（）

もし（connectStatus 1）なら

'MsgBox ftp.LastErrorText

'WScript.Quit

メイン= DTSTaskExecResult_Failure

そうでなければ

dirStatus = ftp.ChangeRemoteDir（ "RMed"）

If（dirStatus 1）

'MsgBox ftp.LastErrorText

'WScript.Quit

メイン= DTSTaskExecResult_Failure

終了の場合

'MsgBox ftp.getCurrentRemoteDir（）

'ローカルマシンのファイルパスと名前を指定します

localInvoiceFile = "C：ドキュメントと設定NathanMy Documents2dRMedInvoice_RMed.txt"

localPatientFile = "C：ドキュメントと設定NathanMy Documents2dRMedPatient_RMed.txt"

'リモートマシンのファイルパスと名前を指定します

remoteInvoiceFile = "C：ClientsStratFile UploadsCustomer UploadsRMedInvoice_RMed.txt"

remotePatientFile = "C：ClientsStratFile UploadsCustomer UploadsRMedPatient_RMed.txt"

'MsgBox remoteInvoiceFile

'MsgBox remotePatientFile

'リモートサーバーからファイルをダウンロードする

transferStatus = ftp.getFile（remoteInvoiceFile、localInvoiceFile）

if（transferStatus 1）その後

'MsgBox ftp.LastErrorText

メイン= DTSTaskExecResult_Failure

それ以外の

メイン= DTSTaskExecResult_Success

もし終わったら

transferStatus = ftp.GetFile（remotePatientFile、localPatientFile）

if（transferStatus 1）その後

'MsgBox ftp.LastErrorText

メイン= DTSTaskExecResult_Failure

それ以外の

メイン= DTSTaskExecResult_Success

もし終わったら

END IF

ftp.Disconnect

終了機能

注意

フォーラムでこのヒントを寄せてくれたcb4nd17に感謝します。