home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 13
/
mediashare_13.zip
/
mediashare_13
/
ZIPPED
/
NETWORK
/
GP25.ZIP
/
NAME.PRG
< prev
next >
Wrap
Text File
|
1993-02-11
|
411b
|
21 lines
* The purpose of this procedure is to strip out the file name from
* a drive/path specification
parameter cName
if type('cName') <> 'C'
return .f.
endif
cName = upper(alltrim(cName))
if substr(cName, 2, 1) == ':'
cName = substr(cName, 3)
endif
if '\' $ cName
cName = substr(cName, rat('\', cName) + 1)
endif
if '.' $ cName
cName = left(cName, at('.', cName) - 1)
endif
return cName