Dosya konumu öğrenme

[Excelexcellent]

Merhaba
Elimde bir dosyanın konumunu dosya adı ve uzantısı ile birlikte userform üzerindeki label' e alan bir kod var.

Ancak benim istediğim sondaki dosya adı ve uzantısı hariç sadece konum bilgisini almak.

Daha açık ifade ile,

bir dosyada sağ click / özellikler açılınca görülen konum bilgisini almak.

örneğin,

Konum : C:\Users\Winxp\Desktop

veya dosya farklı bir yerdede olabilir

Konum : C:\Kitaplar\Giriş\Ders Notları

gibi.

Konu ile ilgilenen ve yardımcı olacaklar için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

MsgBox [COLOR="Purple"][B]ThisWorkbook.Path[/B][/COLOR]

. . .

 

[mancubus]

yapan kod parçasını da görmek lazım.

diyelim ki Label'a atama "dosya" isimli bir değişken ile yapılıyor.

bu takdirde:

yol =  Left(dosya, InStrRev(dosya, "\"))

şöyle bir şey olduğunda

dosya = "C:\Kitaplar\Giriş\Ders_Notları\ornek_dosya.xlsm"
yol =  Left(dosya, InStrRev(dosya, "\"))

yol değişkenine "C:\Kitaplar\Giriş\Ders_Notları\" atanacaktır.

sondaki \ istenmez ise

yol =  Left(dosya, InStrRev(dosya, "\")-1)

yol değişkenine "C:\Kitaplar\Giriş\Ders_Notları" atanacaktır.

 

[Excelexcellent]

merhaba

Mancubus tam istediğim gibi, açıklamalar harika Allah sizden razı olsun.
Teşekkürler.

 

[mancubus]

rica ederim. hepimizden.