以下のコード(部分抽出)でマクロを実行しておりますが表題の英文のエラーが出てきます。
間違った箇所が分かる方、いらっしゃればお教えいただけませんでしょうか。
やりたい作業としては、特定のディレクトリにあるフォルダ、ファイルをそれぞれFTPサーバーに同期したく、そのように下記コードを作成したつもりです。
targetDir,vbDirectory変数はそれぞれFTP送付元のパス、FTP送付先のパスを指定していれております。(string型)です。
buf = Dir(targetDir, vbDirectory)
Do While buf <> ""
If buf = "." Or buf = ".." Then GoTo Continue End If ' ディレクトリチェック If GetAttr(targetDir & buf) And vbDirectory Then isDir = True ' 送信先ディレクトリ名の作成 ftpPath = ftpRootDir & buf '& "/" ' ディレクトリに対してFTP処理 rc2 = FTP.Command("MKD " & ftpPath & "/") MsgBox FTP.GetReply() Else isDir = False ' 送信先ファイル名の作成 ftpPath = ftpRootDir & buf ' FTPでファイル送信 rc = FTP.PutFile(targetDir, ftpPath) <> "" End If
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/03/10 01:26
2015/03/10 02:49