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

Üste

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.

Üste