vbsファイルを実行させてExcelファイルの読み専用を解除してコピー
Q&A
Closed
解決したいこと
vbsファイルを実行させてExcelファイルの読み専用を解除してコピーを行いたいです。
<前提条件>
コピーもとのExcelファイルは読み取り専用が設定されいます
Option Explicit
Dim objFileSys
Dim strFilePathFrom
Dim strFilePathTo
'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'コピー元のファイルのパスを指定
'
strFilePathFrom = "\\Sv-file\計画案.xlsx"
strFilePathTo = "\\Vs-pic\Users\admin_SK\TPOD\計画案.xlsx"
'エラー発生時にも処理を続行するよう設定
On Error Resume Next
'ファイルを上書きコピー
Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo)
'元ファイルが無いなど、エラーになった場合の処理
If Err.Number <> 0 Then
'ここにエラー時の処理を記述
WScript.Echo "ファイルコピー時にエラーが発生しました。" & vbCrLf & _
"エラー番号：" & Err.Number & vbCrLf & _
"エラー詳細：" & Err.Description
'エラー情報をクリアする。
Err.Clear
End If
'「On Error Resume Next」を解除
On Error Goto 0
Set objFileSys = Nothing
0
