GetPath
HKEY_LOCAL_MACHINE¥Software¥Hitachi¥JP1/Script¥SPTX
GetPath_Opt
DWORD
1:末尾に(¥)を付加する
Dim drv1 SplitPath ( GetPath ,drv1 ) If drv1 <> "C:" Then SetPath End