GetShortPathName - Mengubah Filename Menjadi DOS 8.3 Format

Di bawah ini merupakan kode untuk mengubah nama file menjadi format DOS 8.3 - Contoh: G:\Project-ku\Billing Warnet\Billing Warnet\Client\Client Cafe.exe menjadi: G:\PROJEC~1\BILLIN~1\BILLIN~1\Client\CLIENT~1.EXE. Bagaimana kode mengenai cara mengubah filename menjadi DOS 8.3, bisa Anda lihat di bawah:

Option Explicit 
 
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long 
Const MAX_PATH = 260 
 
Public Function GetShortPath(ByVal Filename As String) As String 
    Dim length As Long 
    GetShortPath = Space(1024) 
    length = GetShortPathName(Filename, GetShortPath, Len(GetShortPath)) 
    GetShortPath = Left(GetShortPath, length) 
End Function 

Contoh penggunaan kode di atas:

Private Sub Command1_Click() 
    MsgBox GetShortPath("G:\Project-ku\Billing Warnet\Billing Warnet\Client\Client Cafe.exe") 
End Sub