MakePath ( FullPathBuff , DrvName , DirName , LblName , ExtName )
' OriginalFileに格納されているファイル名を解析し,
' 拡張子を".BAK"に変更したフルパスをBackupFileに作成する。
Dim OriginalFile ,BackupFile ,Drv ,Dir ,Lbl ,Ext
OriginalFile = _SCF_ + "TEST.SPT"
SplitPath ( OriginalFile ,Drv ,Dir ,Lbl ,Ext )
MakePath ( BackupFile ,Drv ,Dir ,Lbl ,".BAK" )