CONST FOF_CREATEPROGRESSDLG = &H8
Dim strTargetFolder
Dim objFolder
Dim Org_Folder
Dim objShellApp
Dim objFSO
Dim LogSaveFolder
Dim filePath
Org_Folder = "\\XXXXX\AAA"
strTargetFolder = "C:\Users\Local"
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace(strTargetFolder)
Set objFSO = createObject("Scripting.FileSystemObject")
filePath = objFSO.getParentFolderName(WScript.ScriptFullName)
LogSaveFolder = filePath & "\log"
Set objFile = objFSO.OpenTextFile(LogSaveFolder & "\log.txt", 8, True)
objFolder.CopyHere Org_Folder & "\Cub", FOF_CREATEPROGRESSDLG 'この行のエラーを見たい
WScript.Echo Err.Number
表題の通りです。ソースの最終行でエラーコードを出力すると、フォルダが存在しないにもかかわらず ”0” が返され、エラーごとの処理ができません。
最終的にはエラーの内容によってlog.txtに追記する内容を変えたいのですが、この番号が"0"だけになってしまう理由はなぜでしょうか?
宜しくお願いします。
※2018/01/29追記
フォルダのコピー元が "\\XXXXX\AAA\Cube"です、わざとエラーにするため"\\XXXXX\AAA\Cub"を見に行ってます。
ここでエラーにならず0が返ってきます。色々試していますがまだ解決しておりません。ご協力お願い致します。