[Çözüldü]  Dosya yolundan son klasörü almak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Dosya yolundan son klasörü almak

İleti#1)  erseldemirel2 » 17 May 2020 11:09

Arkadaşlar makro ile; örneğin A1 hücresinde bir dosya yolu olsun. Bana en sondaki "\" işareti sonrası son klasör ismini alıp B1 hücresine yazacak. Ama bu dosya yolları değişken tabi. Farklı klasörler eklenip çoğalabilir.

"\\fileserver\dosyalar\notlar\FOTOĞRAFLAR\ankara"

buradan ankara alınacak.

"\\fileserver\dosyalar\notlar\testler\iller\SUNUMLAR\mersin"

buradan mersin alınacak.

Yardımlarınızı bekliyorum.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Dosya yolundan son klasörü almak

İleti#2)  şahin » 17 May 2020 13:12

Kod: Tümünü seç
Sub deneme()
Dim klasorAdres$, son$, i%
klasorAdres = "\\fileserver\dosyalar\notlar\FOTOĞRAFLAR\ankara"
For i = Len(klasorAdres) To 1 Step -1
  If Mid(klasorAdres, i, 1) = "\" Then
    son = Mid(klasorAdres, i + 1, Len(klasorAdres) - i)
    Exit For
  End If
Next i
MsgBox son
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 31
İleti: 1013
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Dosya yolundan son klasörü almak

İleti#3)  erseldemirel2 » 17 May 2020 14:50

Teşekkür ederim. Kolay gelsin şkşk
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot], Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe