فیلتر در savedialog و opendialog

[iran_sky]

دوستان من با این کد open یا save میکنم اما فیلترم اگر بیشتر از یکی باشه خطا میده چیکار کنم

Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s)
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")


Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s + ".doc")
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")

[yaserzare]

OpenFileDialog1.Filter = "backGroundFiles (*.bmp,*.gif,*.jpg,*.jpeg,*.dip,*.png)|*.bmp;*.gif ;*.jpg;*.jpeg;*.dip;*.png"

[iran_sky]

ممنون دوست عزیز ولی اینطوری جواب نمیده
اینو چطور میشه درست کرد

sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
میخوام به صورت بالا باشه

[hero4000]

ممنون دوست عزیز ولی اینطوری جواب نمیده
اینو چطور میشه درست کرد
کد:
sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
میخوام به صورت بالا باشه

دوست عزيز

اين دستور هيچ مشکلي نداره من دقيقا همين رو توي يک پروژه نوشتم جواب هم داد

لطفا توضيح دهيد چه مشکلي است



RTB.SaveFile(s + ".doc")


شما لازم نيست پسوند فايل رو مشخص کنيد چون خودبه خود به آخر نام فايل اضافه ميشه

[Shahram_Shobeiri]

به نظر درست میاد. من با کد زیر تو پروژه جاری کار می کنم و عین آدم هم کار میکنه.


Dim OpenImageDialog As New OpenFileDialog
OpenImageDialog.Filter = "JPEG|*.jpeg;*.jpg|GIF|*.gif"
OpenImageDialog.Title = "دریافت تصویر از فایل"
OpenImageDialog.Multiselect = False