1 sayfadan 1. sayfa

Dosya yolundan son klasörü almak

İletiTarih: 17 May 2020 11:09
erseldemirel2
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.

Cevap: Dosya yolundan son klasörü almak

İletiTarih: 17 May 2020 13:12
şahin
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

Cevap: Dosya yolundan son klasörü almak

İletiTarih: 17 May 2020 14:50
erseldemirel2
Teşekkür ederim. Kolay gelsin şkşk