حذف از سمت راست مسیر متقیر

[amini699]

با سلام
من میخوام از یک مسیر از سمت راست این مسیر
C:\Documents and Settings\Ali\My Documents\Data\1388\data.mdb قسمت data.mdb حذف بشه البته از دستور Right$ نمی تونم استفاده کنم چون طول مسیر متقیر است بعضی اوقات
C:\Data\1388\data.mdb به این صورت است و شاید در درایور دیگه و مسیر دیگه از چه دستور باید استفاده کنم ممنون

[Babak.Hassanpour]

Left("C:\Documents and Settings\Ali\My Documents\Data\1388\data.mdb", Len("C:\Documents and Settings\Ali\My Documents\Data\1388\data.mdb") - 8)

[xxxxx_xxxxx]

اگر آدرس مورد نظر در متغیر x وجود داشته باشه:


Left(x, InStrRev(x, "\"))

[vbhamed]

سلام

از منوي Project گزينه References رو انتخاب و سپس آيتم Microsoft Scripting Runtime رو تيك بزنيد، سپس دستورات زير رو بنويسيد



Dim fso As New FileSystemObject

MsgBox fso.GetParentFolderName("c:\test\xx\bank.mdb")


ضمنا از ساير خواص مفيد fso نيز مي توانيد استفاده كنيد