Get File Extension VB6

Berikut ini adalah cara mengambil extensi suatu file di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Copy-kan coding berikut ke dalam editor Form ybt.

          'Fungsi ini juga akan memeriksa jika yang diberikan hanya nama direktori...
          Function 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 Form_Load()
              'Ganti nama file di bawah dengan nama file yang ingin Anda
              'ambil data ekstensinya...
              MsgBox GetExtension("c:\mydir\myfile.exe") 'Contoh ini menghasilkan 'exe'
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module