Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

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

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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...

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 175512 - Son İnceleme: 12/05/2015 08:08:02 - Düzeltme: 3.2

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

  • kbnosurvey kbarchive kbmt kbdocfix kbhowto KB175512 KbMttr
Geri bildirim