Bagaimana untuk mendapatkan nama file pendek dari panjang nama file

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
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Dalam keadaan tertentu, mungkin perlu untuk mendapatkan nama pendeksetara dengan berkas yang memiliki nama file yang panjang. Contoh di bawah ini akan memungkinkanAnda untuk memilih file yang memiliki panjang nama file dan sangat pendekNama file menggunakan panggilan fungsi API GetShortPathName.
INFORMASI LEBIH LANJUT
Contoh kode berikut meliputi fungsi yang akan mengubah panjangnama file ke setara pendek filename dan juga termasuk sederhanademonstrasi 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 diBasis Pengetahuan Microsoft:
154822 Bagaimana untuk mendapatkan nama file yang panjang dari nama file pendek

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 175512 - Tinjauan Terakhir: 12/05/2015 08:08:01 - Revisi: 2.0

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

  • kbnosurvey kbarchive kbdocfix kbhowto kbmt KB175512 KbMtid
Tanggapan