thisworkbook.path hakkında

[bezl]

Selam arkadaşlar yeni bir belge açıp thisworkbook.path ile yolu göster dediğimde "C:\Documents and Settings\Ceylan\Local Settings" olarak gözükürken varolan başka bir belge göster dediğimde "C:\DOCUME~1\Ceylan\LOCALS~1" olarak gözüküyor. Bunun sebebini ve 1. şekilde göstermem için gerekli yolu bilen varsa sevinirim. Acil bir işle uğraşıyoyrum.
Şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz kodu hangi şekilde kullandığınızda mesajınızdaki gibi bir yol görüntülediniz.

 

[uzmanamele]

merhaba

sıkıştırılmış dosya, winrar veya winzip içersinden dosyayı çıkarmadan konu çalıştırırsanız C:\DOCUME~1\... şeklinde görüntülersiniz.
normal dosyalarda bu şekilde görüntülenebileceğini sanmıyorum.

 

[Mehmet Şahin]

Merhaba,
o tür bir yol ile test edemedim ama muhtemelen sorunu çözecektir, bu (Ç)alıntı kodlarla...
iyi akşamlar.

Option Explicit
Private Declare Function GetLongPathName Lib "kernel32" Alias _
    "GetLongPathNameA" (ByVal kisayol As String, _
    ByVal uzunyol As String, ByVal ara_bellek As Long) As Long
Const MAX_PATH = 260
Public Function yol_cevir(ByVal dosya_ad As String) As String
    Dim length As Long, res As String
    On Error Resume Next

    res = String$(MAX_PATH, 0)
    length = GetLongPathName(dosya_ad, res, Len(res))
    If length And (Err = 0) Then
        yol_cevir = Left$(res, length)
    End If
End Function
 Sub test()
 Dim strPath As String
 strPath = ThisWorkbook.Path
 MsgBox yol_cevir(strPath)
End Sub

 

[bezl]

Teşekkürler...