جدا سازی دایرکتوری از نام فایل

[bastakboys]

من یک open file dialog دارم که با اون فایلم رو باز می کنم
و خاصیت file name را در یک متغییر می ریزم
من می خواستم که دایرکتوری مربوط به فایل باز شده را در یک متغییرو نام فایل را در متغییر دیگر قرار بدم
چطوری این جدا سازی را انجام بدم

[Ali_Mor]

TextBox1.Text = IO.Path.GetDirectoryName(OpenFileDialog1.FileName)
TextBox2.Text = IO.Path.GetFileName(OpenFileDialog1.FileName)

[ACorvinus]

عزیزم میتونی با تابع Mid این کارو انجام بدی

البته نام فایل رو که داری : OpenFileDialog.Title
میتونی نام فایل رو از رشته ای که از OpenFileDialog.FileName حاصل میشه با استفاده از تابع Mid جدا کنی و به کارت خاتمه بدی .

مثلا اگه فایلت پسوند JPG باشه در اینصورت :

کد به دست آوردن طول نام فایل :

Dim LenTitle as Integer
LenTitle = Len(OpenFileDialog1.Title.toString)


کد به دست آوردن مسیر دایرکتوری :


Dim DirectoryPath as String
DirectoryPath = Mid(OpenFileDialog1.FileName,1,Len(OpenFileDialog1 .FileName) - LenTitle)

[ACorvinus]

TextBox1.Text = IO.Path.GetDirectoryName(OpenFileDialog1.FileName)
TextBox2.Text = IO.Path.GetFileName(OpenFileDialog1.FileName)



البته این روش از روشی که من گفتم خیلی خیلی خیلی بهتره . من اینو بلد نبودم .
Mer30

[bastakboys]

TextBox1.Text = IO.Path.GetDirectoryName(OpenFileDialog1.FileName)
TextBox2.Text = IO.Path.GetFileName(OpenFileDialog1.FileName)
ممنون دوست عزیز

سوال دیگر:
چطوری میشه برای open file dialog فیلتر پشت سر هم گذاشت مثلا
jpg ,gif,bmp
or
avi,divx,wmp,

[rooshan2008]

سلام
OpenFileDialog1.Filter = "All Pictures|*.bmp;*.jpg;*.Roshan;*.Avi"