(VBScript)ファイルを特定フォルダにコピーする
最終更新：
twoflat1017 2012年07月09日(月) 22:04:27履歴
簡単な説明 
特定のファイルを特定のフォルダにコピーするスクリプトである。
このスクリプトの注意点は�，諒犬砲�いて、strCopyFolderに代入する文字列は必ず"\"記号で終わること。そうしないと、CopyFileメソッド実行時にエラーが出力される。Err.Numberは70、Err.Descriptionは書き込み出来ません。おそらく理由は、strCopyFolderがフォルダへのパスであることをCopyFileメソッドに教えるため。VBScriptはフォルダとファイルを明確に分けていると聞いたことがあるので、そのあたりの仕様が関係しているかもしれない。しかし…このエラー内容では何が問題なのか分からない。コンパイラが時折出力する意味不明なエラーと変わらない。
このスクリプトの注意点は�，諒犬砲�いて、strCopyFolderに代入する文字列は必ず"\"記号で終わること。そうしないと、CopyFileメソッド実行時にエラーが出力される。Err.Numberは70、Err.Descriptionは書き込み出来ません。おそらく理由は、strCopyFolderがフォルダへのパスであることをCopyFileメソッドに教えるため。VBScriptはフォルダとファイルを明確に分けていると聞いたことがあるので、そのあたりの仕様が関係しているかもしれない。しかし…このエラー内容では何が問題なのか分からない。コンパイラが時折出力する意味不明なエラーと変わらない。
サンプルスクリプト
Option Explicit '以降の暗黙の変数定義を許可しない
Dim objFSO ' FileSystemObject
Dim strCopyFile ' コピー対象ファイル
Dim strCopyFolder ' コピー先フォルダ名
On Error Resume Next
strCopyFile = "X:\My Projects\ファイルオープン(WSH)\test.txt"
strCopyFolder = "X:\My Projects\ファイルオープン(WSH)\test\" '��
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
' コピー先フォルダが存在しないときは作成する
If objFSO.FolderExists(strCopyFolder) <> True Then
objFSO.CreateFolder(strCopyFolder)
End If
' ファイルコピー
objFSO.CopyFile strCopyFile, strCopyFolder, True
If Err.Number = 0 Then
WScript.Echo strCopyFile & " を " & _
strCopyFolder & " にコピーしました。"
Else
WScript.Echo "エラー#" & Err.Number & ":" & Err.Description
End If
Else
WScript.Echo "エラー#" & Err.Number & ":" & Err.Description
End If
On Error Goto 0
Set objFSO = Nothing
改善点
- Errを拾うのはいいものの、出力された箇所が特定できるように数字などもあわせて出力しないとエラー時にデバッグできない。また、それを関数化した方がいい。できないなら、On Error Resume Nextの使用はやめるべきか
- 一番外側のエラーチェックは何に備えてのものかが不明瞭。明確にするべきか
コメントをかく