Function GetPathPart(ByRef sPath As String) As String
Получает часть пути без имени файла
sPath - путь к файлу
Windows , Linux
#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim As String ss= "D:\freebasic\Win32_Macro.bas"
#Else
Dim As String ss= "/home/user/Win32_Macro.bas"
#EndIf
? GetPathPart(ss)
Sleep
D:\freebasic
Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation