Soru Klasör Yolu Yazdırma

[karakrall01]

Herkese kolay gelsin.

Private Sub CommandButton1_Click()
 
ChDir ("C:\Users\Dell\Desktop\Orjinal Dosyalar")
dosya = Application.GetOpenFilename(FileFilter:="," & _
        "*.", _
        Title:="Lütfen dosya seçimi yapınız")
    If dosya = False Then
        MsgBox "Dosya seçme işleminden vazgeçildi"
        Exit Sub
    Else
      
        TextBox1.Value = (yol & dosya & uzanti)
      
    End If
 
End Sub

bu kodla istediğim klasörün içinde ki dosyanın tam yolunu getirebiliyorum Örneğin “Orjinal Dosya” klasöründen “deneme.xslm” dosyasının yol uzantısını TextBox un içine yazdırabiliyorum. Fakat benim istediğim “Orjinal Dosya” klasörünün yol uzantısını yazdırmak istiyorum ama bir türlü beceremedim.Yardımcı olabilirmisiniz şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Eğer bu kurgu ile dosyayı seçerek yazdıracaksanız aşağıdaki şekilde deneyebilirsiniz.

TextBox1.Value = Left(dosya, InStrRev(dosya, Application.PathSeparator) - 1)

 

[karakrall01]

Merhaba,
Eğer bu kurgu ile dosyayı seçerek yazdıracaksanız aşağıdaki şekilde deneyebilirsiniz.

TextBox1.Value = Left(dosya, InStrRev(dosya, Application.PathSeparator) - 1)

teşekkür ederim hocam

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...