VBA Dosyanın Uzantısını Bulma

250 Okunma VBA

VBA dilinde dosyanın uzantısını elde etmek için Right fonksiyonu kullanılabilir. Aşağıdaki kod bloğu bir dosya adı verildiğinde, dosyanın uzantısını gösterecektir. 

Public Function DosyaUzantisi(dosyaAdi As String) As String
    DosyaUzantisi = Right(dosyaAdi, Len(dosyaAdi) - InStrRev(dosyaAdi, "."))
End Function

Sub Example()
    Dim dosyaAdi As String
    dosyaAdi = "dosya.txt"
    Debug.Print DosyaUzantisi(dosyaAdi)
End Sub

InStrRev fonksiyonu ile dosyaAdi parametresindeki son nokta karakterinin pozisyonu bulunur ve Right fonksiyonu ile dosyaAdi parametresinin sonundan başlayarak dosyaAdi parametresinin uzantısı elde edilir.

VBA

İlginizi Çekebilir

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

VBA Dosyanın Güncelleme Tarihini Değiştirme

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

VBA Bir Sayının Rakamlarının Toplamını Bulma Örneği