مشكل در SaveFile

[ghaem-soft]

با سلام
این کد چه مشکلی دارد

 Dim a As String = ListBox1.SelectedItem

        RichTextBox1.SaveFile(My.Application.Info.Director  yPath & "\loghat\m\" + a + ".txt", RichTextBoxStreamType.PlainText)

[ghaem-soft]

لطفا پاسخ دهید

[مهرداد صفا]

سلام.
شما لطفا بفرمایید که چه مشکلی با این کد دارید؟
به خطا بر می خورید؟ متن خطا؟
به مقصود مورد نظر نمی رسید؟

[ghaem-soft]

با کد بالا مشکلی ندارم
اما هنگامی که می خواهم با نام دلخواه من ذخیره شود

و +a+ را اضافه می کنم با خطا مواجه می شوم

Dim a As String = ListBox1.SelectedItem
RichTextBox1.SaveFile(My.Application.Info.Director yPath & "\loghat\m\" + a + ".txt", RichTextBoxStreamType.PlainText)

اگر داده از نوع Integer باشد خطا نمی دهد اما با String مشكل دارد
مانند این کد که خطا ندارد اما کد بالا خطا دارد

 Dim a As Integer = ListBox1.SelectedIndex

        RichTextBox1.SaveFile(My.Application.Info.Director  yPath & "\loghat\m\" + RTrim(a) + ".txt", RichTextBoxStreamType.PlainText)

[Aryan.Software]

شاید خنده دار باشه خودم هم تست نکردم ولی به جای + از & استفاده کن ببین مشکلت حل میشه یا نه

[ghaem-soft]

نه با & هم هنگام اجرا خطا می دهد

[محمد آشتیانی]

سلام
دوست عزیز کدی که توی پست اول هم گذاشتی مشکلی نداره و اجرا میشه ، تنها دلیل میتونه این باشه که مسیری که داری بهش میدی وجود نداشته باشه ، منظورم اینه "\loghat\m\"




موفق باشید

[ghaem-soft]

یعنی چی مشکلی نداره
هزار بار امتحان کردم

کدی که در بالای بالا گذاشتم مشکل دارد
به طور کلی هنگامی که در متغیر a متن باشد خطا می دهد
اما اگر در متغیر a عدد باشد با گذاشتن (RTrim(a مشکل حل می شود


در کل فکر می کنم اگر تابعی باشد که برای متن مانند rtrim که برای عدد است عمل کند این کد درست شود

[محمد آشتیانی]

یعنی مشکلی نداره ، اتفاقا من همون کد پست اول رو تست کردم و بدون مشکل کار کرد ، شما کدت رو Trace کن و ببین موقعی که نوع a رشته هست ، چی داره بعنوان آدرس فایل برمیگردونه
شاید یکی از آیتم های لیست باکست کاراکتر غیرمجاز داره برای نام فایل

[مهرداد صفا]

سلام.
دوست من متن خطا و مقدار متغیر a رو لطف کن بی زحمت.