none
VBS CopyHere コマンドのErr.Numberが0以外出力されない RRS feed

  • 質問

  • 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が返ってきます。色々試していますがまだ解決しておりません。ご協力お願い致します。



    2018年1月26日 2:46

すべての返信