Fonksiyon Kodları
Public Function UzantıBul(Dosya As String)
If Dosya = "" Then Exit Sub
Dim Uzantı
Uzantı = Dosya
If Uzantı Like "*.?????" Then Uzantı = Mid(Dosya, Len(Dosya) - 5, 6)
If Uzantı Like "*.????" Then Uzantı = Mid(Dosya, Len(Dosya) - 4, 5)
If Uzantı Like "*.???" Then Uzantı = Mid(Dosya, Len(Dosya) - 3, 4)
If Uzantı Like "*.??" Then Uzantı = Mid(Dosya, Len(Dosya) - 2, 3)
If Uzantı Like "*.?" Then Uzantı = Mid(Dosya, Len(Dosya) - 1, 2)
UzantıBul = Uzantı
End Function
' Kullanımı
' Me.Caption = UzantıBul("C:/Autoexec.bat")