CB Repository

//================================================================================
// GetDirectoryPath-funktio [ VesQ ]
// ---------------------------------
// Palauttaa kansion, jossa parametrina annettu tiedosto sijaitsee.
// Palautusarvo riippuu siitä, annettiinko relatiivinen vai absoluuttinen polku - 
// relatiivinen palauttaa relatiivisen polun kansioon ja absoluuttinen vastaavasti
// absoluuttisen polun.
//================================================================================

// ESIMERKKI
searchAbsolutive$ = "C:\lolwhatadir/asdf/this\maps/Luna.mpc"
searchRelative$ = "media/long\list/of/directories\ukko.bmp"

Print GetDirectoryPath( searchAbsolutive$ )
Print GetDirectoryPath( searchRelative$ )
Print GetDirectoryPath( GetEXEName() )

WaitKey 

// FUNKTIO
Function GetDirectoryPath$( _filePath$ )

    If IsDirectory( _filePath$ ) Then Return _filePath$
    
    searchParam$ = Replace( _filePath$, "/", "\" )
    dirTmp = Len( GetEXEName() ) - 1
    While InStr( searchParam$, "\", dirTmp ) = 0
        dirTmp = dirTmp - 1
        If dirTmp < 1 Then Exit
    Wend 
    
    If dirTmp < 1 Then Return ""
    
    ret$ = Left( searchParam$, dirTmp )
    
    Return ret$
EndFunction