GetShortName Fonksiyonu

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

(gerekli)

(gerekli)


CAPTCHA image