(DataFlex) Demonstrate Directory Path Functions

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFac
    String sTemp1

    Get Create (RefClass(cComCkFileAccess)) To hoFac
    If (Not(IsComObjectCreated(hoFac))) Begin
        Send CreateComObject of hoFac
    End

    // Note: Chilkat accepts either forward slash or backslash chars as directory separators..
    Get ComGetDirectoryName Of hoFac "/MyDir/MySubDir/myfile.ext" To sTemp1
    Showln sTemp1
    Get ComGetDirectoryName Of hoFac "/MyDir/MySubDir" To sTemp1
    Showln sTemp1
    Get ComGetDirectoryName Of hoFac "/MyDir/" To sTemp1
    Showln sTemp1
    Get ComGetDirectoryName Of hoFac "/MyDir" To sTemp1
    Showln sTemp1
    Get ComGetDirectoryName Of hoFac "/" To sTemp1
    Showln sTemp1

    Get ComGetExtension Of hoFac "C:/mydir.old/myfile.ext" To sTemp1
    Showln sTemp1
    Get ComGetExtension Of hoFac "C:/mydir.old/" To sTemp1
    Showln sTemp1

    Get ComGetFileName Of hoFac "C:/mydir/myfile.ext" To sTemp1
    Showln sTemp1
    Get ComGetFileName Of hoFac "C:/mydir/" To sTemp1
    Showln sTemp1

    Get ComGetFileNameWithoutExtension Of hoFac "C:/mydir/myfile.ext" To sTemp1
    Showln sTemp1
    Get ComGetFileNameWithoutExtension Of hoFac "C:/mydir/" To sTemp1
    Showln sTemp1

    Showln "---"


End_Procedure