Bagaimana untuk mendapatkan nama file pendek dari panjang nama file

Kembali ke atas

Contoh langkah demi langkah

1. Buat projek Standard EXE yang baru dalam Visual Basic. Form1 dibuat oleh default.
2. Tempat CommandButton pada Form1.
3. Tempat umum Dialog kontrol pada formulir.
4. Dari Masukkan menu, pilih Modul untuk menambahkan modul satu kode untuk proyek.
5. Tambahkan kode berikut untuk Module1:

      Declare Function GetShortPathName Lib "kernel32" _
         Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
         ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
   
      Public Function GetShortName(ByVal sLongFileName As String) As String
          Dim lRetVal As Long, sShortPathName As String, iLen As Integer
          'Set up buffer area for API function call return
          sShortPathName = Space(255)
          iLen = Len(sShortPathName)
   
          'Call the function
          lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
          'Strip away unwanted characters.
          GetShortName = Left(sShortPathName, lRetVal)
      End Function
   					

6. Tambahkan kode berikut untuk Form1:

      Private Sub Command1_Click()
        Dim msg As String
        CommonDialog1.FileName = "*.*"
        CommonDialog1.ShowOpen
        msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
        msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
        MsgBox msg
      End Sub
   					

7. Menjalankan proyek dengan menekan tombol F5. Klik pada tombol perintah untuk menampilkan kotak dialog yang terbuka. Menavigasi kotak dialog yang terbuka dan menemukan file yang memiliki nama file yang panjang. Pilih file dan klik OK.
8. Kotak pesan akan menampilkan nama File yang panjang bersama yang singkat Nama file.

Kembali ke atas