特殊フォルダへのファイルコピー
win10 ofice2016
ユーザレベル:Administrator
パソコン利用者に、共通で使用するプログラムのコピー及び起動の設定をexcelマクロで対応しています。
Win10のRS5バージョンアップの影響か、従来動作していたマクロが動作しなくなりました。
c:\A\B.bat
を
スタートメニュー及び、共通ディスクトップにコピーするマクロ
で下記の内容です。
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\InspecStart.bat"
FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\Users\Public\Desktop\InspecStart.bat"
Set FSO = Nothing
上記実行で
実行時エラー'70':
書き込みできません
とのエラーが出てしまいます。
ちなみに
' FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\work\B.bat"
はコピーできます。
また、エクスプローダ上でのコピーはできます。
このフォルダへのコピーは管理者権限が必要です。
と表示され、続行でコピー可です。
ファイルのコピーを手動でやれば済むのですが、パソコン等はリースです。
リース更新時に沢山の設定するのは手間なので、特殊フォルダへのコピーを簡単に対応可能な手段があればとのおもいです。
excelマクロにはこだわりませんが、サーバからのファイルコピー等はマクロで実行するので、一緒に起動用のファイルをコピーで対応できたらと思った次第です。
サーバからファイルをc:\A配下へコピー。
Aフォルダ配下の起動ファイルを特殊フォルダ2ケ所に設定したいのです。
よろしくお願いします
お礼
早速の回答ありがとうございました。 何故か正しく動かず、回答内容を参考に弄り回して、¥ を\変えたらうまくいきました。 batファイルにドロップ出来るとは知らず、大変参考になりました。
補足
回答ありがとうございました。 お礼後にこれを書いてます。 教えていただいたコードは、なぜか動いたり動かなかったりで、私のパソコンがおかしいのかなという状況です。 ネットで探した別のbatファイルも挙動がおかしく、一旦締め切らせて頂きます。