Retrieve current path info and Application name

Here's some part of sample program.

On SAM_AppStartup
    Call VisDosSplitPath (strArgArray[0], sDrive, sDir, sFile, sExt)
    Call SalMessageBox('Full Path: '||strArgArray[0]||'
        File Name: '||sFile||sExt||'','Information', MB_Ok)