Dosya yolu bulma

[fealdown]

merhabalar,
ThisWorkbook.Path ile excelin bulunduğu klasörü bulabiliyoruz fakat bana excelimin bulunduğu bi alt klasörü nasıl bulabiliriz , örneğin

c:/çalışmam/örnekdosya burda örnek dosyada excelim var ama ben çalışmam adlı klasörümün yolunu bulmak istiyorum nasıl yapabiliriz ?

 

[halit3]

Bu kodu bir dene

Sub klasor_adi()

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
MsgBox fL.GetBaseName(ThisWorkbook.Path)

End Sub

 

[Haluk]

Sub Test()
    'Haluk - 11/12/2019
    'sa4truss@gmail.com
    Dim myFile As String, strParentFolder As String
    Dim FSO As Object
    
    myFile = "C:\Çalışmam\ÖrnekDosya\Test.xlsx"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    strParentFolder = FSO.GetFile(myFile).ParentFolder.ParentFolder
    MsgBox strParentFolder
    Set FSO = Nothing
End Sub

.