'**********************************************************************************************************
' Nazwa:                folderNadrzedny
' Autor:                mielk | 2012-12-06
'
' Opis:                 Funkcja zwracająca ścieżkę do folderu nadrzędnego na podstawie podanej ścieżki
'                       do pliku.
'
' Argumenty:
'   sciezka             Ścieżka, dla której zwrócony zostanie adres folderu nadrzędnego.
'
' Zwraca:
'   String              Ścieżka folderu nadrzędnego względem ścieżki podanej jako argument wejściowy
'                       [sciezka].
'
'
' --- Zmiany ----------------------------------------------------------------------------------------------
' 2012-12-06        mielk           Utworzenie funkcji.
'**********************************************************************************************************
Public Function folderNadrzedny(sciezka As String) As String
    Const NAZWA_METODY As String = "folderNadrzedny"
    '------------------------------------------------------------------------------------------------------
    Static objFSO As Object                 'Późne wiązanie pozwala korzystać z funkcji nawet jeżeli
                                            'nie jest załadowana biblioteka Microsoft Scripting Runtime.
    '------------------------------------------------------------------------------------------------------


    'Tworzy instancję klasy FileSystemObject, jeżeli nie została jeszcze stworzona. ---------------------|
    If objFSO Is Nothing Then                                                                           '|
        Set objFSO = VBA.CreateObject("Scripting.FileSystemObject")                                     '|
    End If                                                                                              '|
    '----------------------------------------------------------------------------------------------------|


    folderNadrzedny = objFSO.GetParentFolderName(sciezka)


End Function