B4X

Demonstrate Directory Path Functions

Demonstrates the path functions GetDirectoryName, GetExtension, GetFileName, and GetFileNameWithoutExtension. B4X

Dim fac As ChilkatFileAccess
fac.Initialize

'  Note: Chilkat accepts either forward slash or backslash chars as directory separators..
Log(fac.GetDirectoryName("/MyDir/MySubDir/myfile.ext"))
Log(fac.GetDirectoryName("/MyDir/MySubDir"))
Log(fac.GetDirectoryName("/MyDir/"))
Log(fac.GetDirectoryName("/MyDir"))
Log(fac.GetDirectoryName("/"))

Log(fac.GetExtension("C:/mydir.old/myfile.ext"))
Log(fac.GetExtension("C:/mydir.old/"))

Log(fac.GetFileName("C:/mydir/myfile.ext"))
Log(fac.GetFileName("C:/mydir/"))

Log(fac.GetFileNameWithoutExtension("C:/mydir/myfile.ext"))
Log(fac.GetFileNameWithoutExtension("C:/mydir/"))

Log("---")