ファイルパスからディレクトリ情報を除いたファイル名を取得する
Function getFileName( filePath )
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if Err.Number <> 0 Then
WScript.Quit()
end if
getFileName = objFSO.GetFileName( filePath )
set objFSO = Nothing
end Function
