AllBasic
Dosya Uzantısını Bulmak
Dosya Uzantısını BulmakFunction GetExtension(Filename As String)
Dim PthPos, ExtPos As Integer
For i = Len(Filename) To 1 Step -1
If Mid(Filename, i, 1) = "." Then
ExtPos = i
For j = Len(Filename) To 1 Step -1
If Mid(Filename, j, 1) = "" Then
PthPos = j
Exit For
End If
Next j
Exit For
End If
Next i
If PthPos > ExtPos Then
Exit Function
Else
If ExtPos = 0 Then Exit Function
GetExtension = Mid(Filename, ExtPos + 1, Len(Filename) - ExtPos)
End If
End Function
Private Sub Command1_Click()
Label1.Caption = GetExtension("c:windowsvbvb.exe")
End Sub
