SplitPath ( FullPath , 〔DrvNameBuff〕 , 〔DirNameBuff 〕 , 〔LblNameBuff〕 〔, ExtNameBuff〕 )
Dim drv1 ,dir1 ,lbl1 ,ext1 SplitPath ( "C:¥WINDOWS¥WINFILE.EXE" ,drv1 ,dir1 ,lbl1 ,ext1 ) ↓ drv1 C: dir1 ¥WINDOWS¥ lbl1 WINFILE ext1 .EXE