GetShortName Fonksiyonu
Loading ...Bilindiği üzere 32 bit işletim sistemlerine geçildiği günden bu yana Path (yol) larda boşluklar, çeşitli karakterler kullanılmasına izin verildi. VB de bu tür bir path ile işlem yapmak genelde sorun çıkarmakta.
Şimdi size bu uzun pathleri vbnin anlayacağı dile getirecek bir fonksiyon olan GetShortName fonksiyonunu sunuyorum ;
Public Function GetShortName(ByVal sLongFileName As String) As String
Dim lRetVal As Long, sShortPathName As String, iLen As Long
sShortPathName = Space(255)
iLen = Len(sShortPathName)
lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
If lRetVal = 0 Then
Open sLongFileName For Random As #1
Close #1
lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
Kill (sLongFileName)
End If
GetShortName = left(sShortPathName, lRetVal)
End Function
Kullanılışı :
Dim kisapath as String
kisapath = GetShortName("c:\Program Files\Muzaffer\asd.exe")
MsgBox kisapath
Böylece artık sorunsuz bir şekilde path kullanabilirsiniz.
Benzer Yazılar
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Yorumlar
Henüz Yorum Yok.
Yorum Yazın