Konversi Long Name Ke Sort Name VB6

Berikut ini adalah cara mengkonvesi long name ke sort name di visual basic 6, maksudnya jika kita menulis path yang panjang di DOS sering kali kita harus mengubahnya ke soft name contoh : c:\program files menjadi c:\PROGRA~1 , untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Module dan 1 Form
2. Copy-kan coding berikut ke dalam editor form yang bertalian

          '--- Coding ini di Module...
          Declare Function GetShortPathName Lib "KERNEL32" Alias "GetShortPathNameA" _
          (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal _
          cchBuffer As Long) As Long
          Public Const PATH_LEN& = 164
          '--- Batas coding di Module...

          '--- Coding ini di Form...
          Public Function sGetShortFileName(ByVal FileName As String) As String
          Dim lRC As Long

          Dim sShortPath As String
            sShortPath = String$(PATH_LEN + 1, 0)
            lRC = GetShortPathName(FileName, sShortPath, PATH_LEN)
            sGetShortFileName = Left$(sShortPath, lRC)
          End Function

          Private Sub Form_Load()
            'Ganti 'c:\program files' dengan path/file yang Anda ingin mengetahui
            'nama pendeknya. Nama path harus sudah ada di PC Anda...

            MsgBox sGetShortFileName("c:\program files")
          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