Mar.29

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.

Function
Share this Story:
  • facebook
  • twitter
  • gplus

About Muzaffer Ali AKYIL

Merhabalar, Adım Muzaffer Akyıl, Bilgi teknolojileri ile içli dışlı, teknolojiyi yakından takip eden, web ve masaüstü programlama ile uğraşıp, saatlerce kastığı şeyleri hiç bir karşılık beklemeden paylaşmayı amaç eden biriyim.


Bir yorum bırak

 

Comment