VBA İle Bir Alt Klasör Nasıl Bulunur

[ZuCChiNi]

Dim DosyaninYolu As String, DosyaninAdi As String, DosyaninYoluVeAdi As String
DosyaninYolu = ThisWorkbook.Path & "\"
DosyaninAdi = ThisWorkbook.Name
DosyaninYoluVeAdi = DosyaninYolu & BuDosyaninAdi

kodu ile excel dosyasının bulunduğu klasörü buluyoruz.
Örneğin Dosyamız
C:\Users\User\Belgelerim\Çalışma\Belgeler
klasöründe ise (yukarıdaki kodun verdiği sonuç)

C:\Users\User\Belgelerim\Çalışma\
klasörünü nasıl bulabiliriz?

Not: Alt klasör değil üst klasör olacak.

 

[vardar07]

Dosya yolunu aşağıdaki gibi denermisiniz.

DosyaninYolu ="C:\Users\User\Belgelerim\Çalışma\"

 

[ZuCChiNi]

O şekilde kendi bilgisayarımda iş görüyor ancak bunu meslektaşlarımla paylaşacağım. Herkes farklı yere kopyalayacak. (Büyük ihtimalle masaüstüne) Onların bilgisayarında sorunsuz çalşıması için gerekli.
Bir yandan da araştırıyorum.ş Bir kod buldum. Olumlu netice alınca paylaşacağım.
Destek için teşekkür ederim.

 

[ZuCChiNi]

Bu kod dosyanın bulunduğu klasörün ana klasörünü buluyor.

Dim ParentFolderName As String
ParentFolderName = CreateObject("Scripting.FileSystemObject").Getfile(ThisWorkbook.FullName).ParentFolder.ParentFolder.Path
MsgBox= ParentFolderName
End Sub