Bagaimana untuk mendapatkan nama file pendek dari panjang nama file

ID Artikel: 175512 - Melihat produk di mana artikel ini berlaku.

Peringatan: artikel ini adalah terjemahan oleh mesin

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Perbesar semua | Perkecil semua

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.

Kembali ke atas | Berikan Masukan

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

Buat projek Standard EXE yang baru dalam Visual Basic. Form1 dibuat oleh default.
Tempat CommandButton pada Form1.
Tempat umum Dialog kontrol pada formulir.
Dari Masukkan menu, pilih Modul untuk menambahkan modul satu kode untuk proyek.

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

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

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.
Kotak pesan akan menampilkan nama File yang panjang bersama yang singkat Nama file.

Kembali ke atas | Berikan Masukan

REFERENSI

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:

154822

(http://support.microsoft.com/kb/154822/EN-US/ )

Bagaimana untuk mendapatkan nama file yang panjang dari nama file pendek

Kembali ke atas | Berikan Masukan

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

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

(http://support.microsoft.com/kb/175512/en-us/ )

Kembali ke atas | Berikan Masukan