Nasıl yapılır: uzun bir dosya adı bir kısa dosya adını Al

Makale çevirileri Makale çevirileri
Makale numarası: 175512 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Belirli koşullar altında kısa dosya adı, eşdeğer olarak uzun bir dosya adı olan bir dosya almak gerekli olabilir. Aşağıdaki örnek, uzun bir dosya adı olan bir dosya seçin ve dosya adı kısa GetShortPathName API işlev çağrısı kullanılarak Günlerden olanak sağlar.

Daha fazla bilgi

Aşağıdaki kod örneği, uzun dosya adları, kısa dosyaadı eşdeğerleri dönüştürür ve bu da işlevin kullanımı basit bir gösterimini içerir bir işlev içerir.

Adım adım örnek

  1. Yeni bir proje standart exe DOSYASı, Visual Basic'te oluşturun. Varsayılan olarak, Form1 oluşturulur.
  2. Bir KomutDüğmesi Form1'ın getirin.
  3. Formdaki bir ortak iletişim denetimi yerleştirin.
  4. Ekle menüsünden modülü projeye tek bir kod modülü eklemek için seçin.
  5. Module1 için aşağıdaki kodu ekleyin:
       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. Form1'e aşağıdaki kodu ekleyin:
       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. F5 tuşuna basarak projeyi çalıştırın. Aç iletişim kutusunu görüntülemek için komut düğmesini tıklatın. Aç iletişim kutusuna gidin ve uzun bir dosya adı olan bir dosyayı bulun. Dosyayı seçin ve Tamam'ı tıklatın.
  8. Uzun dosya adı kısa bir dosya adıyla birlikte ileti kutusu görüntüler.

Referanslar

Ek bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
154822Nasıl yapılır: uzun bir dosya adı kısa bir dosya adı Al...

Özellikler

Makale numarası: 175512 - Last Review: 11 Mart 2005 Cuma - Gözden geçirme: 3.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic 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 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Anahtar Kelimeler: 
kbmt kbdocfix kbhowto KB175512 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:175512

Geri Bildirim Ver

 

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