Get File Name+Extension From Full Path File VB6

Berikut ini adalah cara mengambil nama file lengkap dari path lengkap 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.

          Function StripPath(T$) As String
          Dim x%, ct%

            StripPath$ = T$
            x% = InStr(T$, "\")
            Do While x%
               ct% = x%

               x% = InStr(ct% + 1, T$, "\")
            Loop
            If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
          End Function

          Private Sub Form_Load()
            'Ganti dengan nama lengkap file (beserta path-nya) yang ingin Anda ambil
            'nama file-nya.
            MsgBox StripPath("c:\mydir\myfile.exe") 'Contoh ini menghasilkan: 'myfile.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