test.prg

来自「C语言实现多级目录的创建,删除以及修改的源码.」· PRG 代码 · 共 22 行

cls

? 'File = '
?? cFile := 'c:\bum\titi\bum\titi\bum\titi.bum'
?
? ' Drv = '
?? pathsplit(cFile,1)  // Get drive
? 'Path = '
?? pathsplit(cFile,2)  // Get path 
? 'Name = '
?? pathsplit(cFile,3)  // get name
? ' Ext = '
?? pathsplit(cFile,4)  // get ext

? mkdirs(pathsplit(cFile,2))

? rmdirs(pathsplit(cFile,2))