by

Filter Ekstensi File VB.NET

Untuk membuat filter ekstensi file di Visual Basic sebenarnya ada beberapa cara dan metode. Jika menggunakan Open File Dialog mungkin saja sangat mudah untuk membuat filter. Tapi ada kalanya kita membutuhkan filter tanpa menggunakan Open File Dialog, oleh karena itu Anda bisa mendeteksinya melalui 4 digit terakhir atau lebih format yang dimasukkan user.

Untuk melakukannya, Silakan Anda ikuti langkah berikut ini.

1. Buat sebuah project Visual Basic, beri nama terserah Anda.

2. Tambahkan 1 Buat TextBox dan 1 Buah Button.

3. Dalam kasus ini saya akan mendeteksi 4 digit terakhir untuk ekstensi, dengan cara membalik stringnya dan dihitung dari depan.

4. Copy paste script dibawah ini ke project Anda.


Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim hasilbalik As String
Dim TN As String
TN = StrReverse(TextBox1.Text)
hasilbalik = Mid(TN, 1, 4)
TN = hasilbalik

If (TN = "3pm.") Or (TN = "4pm.") Then
MsgBox("This is MP3 or MP4 Files that support !")
Else
MsgBox("Not Supported !")
End If
End Sub
End Class

5. Selesai, Anda dapat mengganti 1,4 menjadi 1,5 jika ekstensi Anda lebih dari 3 digit, misalnya .docx.

Lihat videonya dibawah ini.

Comment

Leave a Reply

Your email address will not be published. Required fields are marked *