قراردادن آدرس های بزرگ فایلها در Label

[vb_nima]

سلام دوستان
من میخوام آدرس فایلها را به ترتیب در یک Label نمایش بدم مثل همون کاری که در برنامه های کپی انجام میشه که در هنگام کپی کردن آدرس فایلها هم زده میشه.
حالا مشکل من اینجاست که خوب اگر آدرس فایل بزرگ باشه در label جا نمیشه؟ باید چی کار کنم.
البته از خاصیت Word wrap هم نمیتونم استفاده کنم چون این ویژگی زمانی عمل میکنه که فضای خالی بین کلمات باشه ولی در آدرس یک فایل هیچ فضای خالی وجود ندارد.
اگر کسی راه حلی داره بگه.

[CodeMasterX]

اسم تابع رو که تو عنوان پست نوشتم.
این تابع رو به فرم اضافه کن :



Private Declare Function PathCompactPathEx Lib "shlwapi.dll" Alias "PathCompactPathExA" (ByVal pszOut As String, ByVal pszPath As String, ByVal cchMax As Long, ByVal dwFlags As Long) As Long





Private Sub Form_Load()
Dim Buffer As String

Buffer = String(255, 0)
PathCompactPathEx Buffer, "C:\folder1\folder2\folder3\file.exe", 16, 0
Text1.Text = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub


موفق باشی.

[vb_nima]

خیلی ممنون.
ببینم در Filesystemobject یا همون fso تابعی برای این کار وجود نداره؟

[CodeMasterX]

خیر باید این تابع استفاده کنید.
دات نت که دیگه خودش همه این کارا رو انجام میده...