コピー先でディスクフルになるとエラーメッセージが取得できない。
Dim x
Set x = CreateObjct("Scripting.FileSystemObject")
On Error Resume Next
Call x.CopyFile(foo, bar)
WScript.Echo Err.Description
1. 上記コードを実行した場合
C:\Temp>cscript test.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
2. "On Error Resume Next" をコメントにした場合
C:\Temp>cscript test.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
C:>Temp>test.vbs(7, 1) (null): ディスクに十分な空き領域がありません。
0 件のコメント:
コメントを投稿