Bagaimana untuk mendapatkan nama file pendek dari panjang nama file

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 175512 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Dalam keadaan tertentu, mungkin perlu untuk mendapatkan nama pendek setara dengan berkas yang memiliki nama file yang panjang. Contoh di bawah ini akan memungkinkan Anda untuk memilih file yang memiliki panjang nama file dan sangat pendek Nama file menggunakan panggilan fungsi API GetShortPathName.

INFORMASI LEBIH LANJUT

Contoh kode berikut meliputi fungsi yang akan mengubah panjang nama file ke setara pendek filename dan juga termasuk sederhana demonstrasi penggunaan fungsi.

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.

REFERENSI

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:
154822 Bagaimana untuk mendapatkan nama file yang panjang dari nama file pendek

Properti

ID Artikel: 175512 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 5.0 Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Kata kunci: 
kbdocfix kbhowto kbmt KB175512 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:175512

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com