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.

Popülerlik: 3%