Çözüldü Kısa dosya adı ( MS-DOS name )

[k0081]

Merhaba arkadaşlar;

txtdosyaadı.text = "Zipsearch.exe" bunu kısaltıp şu şekilde bir değişkene nasıl alabilirim ?

Not : Eğer dosya adı 8 karakter ise sorun yok... Aynı isimde alabiliriz.

Dosname = "Zipsea~1.exe" yani ilk 6 karakterden sonra diğer karakterleri atıp,~1.xxx şeklinde almak.


Yardımcı arkadaşa şimdiden Teşekkür ederim.


Mevcut = Zipsearch.exe
İstenen= Zipsea~1.exe

 

[veyselemre]

Bu iş öyle hesaplamayla olmaz. Dosyanın bulunduğu konumda benzer dosya isimleri varsa ~1,~2 şeklinde bilgisayar kendisi atar. Kayıtlı dosyanın msdos ismini öğrenmek istiyorsanız,

Private Declare Function GetShortPathName Lib "kernel32" _
                                          Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
                                                                     ByVal lpszShortPath As String, ByVal cchBuffer As Long) _
                                                                     As Long
Public Function GetShortFileName(ByVal FullPath As String) _
       As String
    Dim lAns As Long
    Dim sAns As String
    Dim iLen As Integer
    On Error Resume Next
    If Dir(FullPath) = "" Then Exit Function
    sAns = Space(255)
    lAns = GetShortPathName(FullPath, sAns, 255)
    GetShortFileName = Left(sAns, lAns)
    On Error GoTo 0
End Function
Sub Get_Short_Name_DOS()
    fileToOpen = Application _
                 .GetOpenFilename("All files (*.*, *.*")
    InputBox "Here is a copy and pastable for you", , (GetShortFileName(fileToOpen))
End Sub

 

[k0081]

VeyselEmre

Bencede Hesaplamayla olmaz. Ama o şekilde anlatayım dedim...

Çok Teşekkür ediyorum. Tamamdır... Elinize Sağlık.

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
Çok teşekkür ederim
Saygılarımla