前提・実現したいこと
下記のようなコードでサーバーにあるファイルをクライアントにコピーしようとしています。
機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー '-2147023570(800705072e)
'CopyFile’メソッドは失敗しました’IFileSystem3’オブジェクト
該当のソースコード
'(最新版をコピー)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyFile FilePath_IN1, FolderPath_OT, True
objFSO.copyFile FilePath_IN2, FolderPath_OT, True
Set objFSO = Nothing
VB (Office365の32ビット版)
1ソースコード``` 2 3### 試したこと 4 5他のOffice 例えばOffice2013では問題が出ません 6 7### 補足情報(FW/ツールのバージョンなど) 8 9環境はサーバーにWindows2016Standard SQLサーバーは2017Express 10でクライアントはWindows10でOffice365をインストールしてサーバーとはVPNで接続しています。 11ただし、当初はOffice365ha64ビット版をインストールしましたが、32ビット版に変更しました。 12コピー元のフォルダーはもちろんセキュリティ上の共有設定をしております。