ساخت یک فولدر و فایل text در debug برنامه

[saeed 444]

با جستجو موفق نشدم

من میخوام با زدن یک باتن در فولدر debug برنامم یک فولدر ساخته بشه بنام data و درونش هم یک فایل متنی بنام sobject
ساخته بشه ولی در آدرس دهی مشکل دارم
تشکر میکنم

[SHD.NET]

اگه فقط توی آدرس دهی مشکل دارین . برای بدست آوردن آدرس اونجایی که برنامه شما قرار داره از تابع زیر استفاده کنید:

Application.Startuppath

موفق باشید

[xxnagin]

سلام
اینم کد

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If IO.Directory.Exists(Application.StartupPath & "\data") = False Then
IO.Directory.CreateDirectory(Application.StartupPa th & "\data")
IO.File.AppendText(Application.StartupPath & "\data\sobject.txt")
Else
IO.File.AppendText(Application.StartupPath & "\data\sobject.txt")
End If
End Sub

[saeed 444]

ممنون بزرگواری کردید

[saeed 444]

ممنونم
اگر بخوام دو تا folder داشته باشم یعنی یکی data و یکی هم داخلش که خاصیت text یک textbox رو بعنوان نام فولدردوم انتخاب کنه مثلا textbox3.text

ممنونم

[xxnagin]

اینو قرار بده
این خط رو هم اضافه بکن


IO.Directory.CreateDirectory(Application.StartupPa th & textbox3.text)

[saeed 444]

دوست گرامی
میخوام فولدر data رو داشته باشم و داخلش یه فولدر دیگه باشه که خاصیت text رو بگیره
باز هم ممنونم

[xxnagin]

خوب همون دو تا خط 3و 4 رو یه کپی بگیری تمومه دیگه
یکم هم خودت دست به کار شو

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If IO.Directory.Exists(Application.StartupPath & "\data") = False Then
IO.Directory.CreateDirectory(Application.StartupPa th & "\data")
IO.Directory.CreateDirectory(Application.StartupPa th & TextBox1.Text)
IO.File.AppendText(Application.StartupPath & "\data\sobject.txt")
IO.File.AppendText(Application.StartupPath & TextBox1.Text & "\sobject.txt")
Else
IO.File.AppendText(Application.StartupPath & "\data\sobject.txt")
IO.File.AppendText(Application.StartupPath & TextBox1.Text & "\sobject.txt")
End If
End sub

[saeed 444]

خسته شدید عذر خواهی میکنم
ولی کد شما فولدر تو در تو نمیسازه
مطمئن باشید سعی کردم
این کد شما یه folder data میسازه که درونش یک فایل txt هست و یک فایل txt مجزار در debug

,ولی نیاز من دو تا folder هست یکی به نام data و یکی هم درونش که متن textbox رو میگیره
[IO.File.AppendText(Application.StartupPath & "\data\saeed\sobject.txt")]

بجای saeed تکست تکست باکس رو بگیره

سپاسگرارم

[zahedi121]

سلام
فقط "\" را یا باید داخل تکست باکستون بنویسید یا داخل کد اصلاح کنید.برای ورود به پوشه اگر در تکست باکستون "\" نگذارید خب وارد پوشه نمی شه.
موفق باشید.

[xxnagin]

اون کد برای پوشه تو در تو نبود دو تا پوشه کنار هم میسازه
ببینید برای ساخت پوشه تو در تو یا کلا پوشه

اول که همونطور که دستمون گفتند از "\" استفاده میشه و که اسم پوشه رو به اینصورت "data/" یا " اسم پوشه "& "/" & که در همه مدل شما مجبورید از این علامت "/" استفاده بکنید
برای پوشه تو در تو هم به این صورت "اسم پوشه\data\" استفاده میشه
به خط قرمز توجه کنید


IO.Directory.CreateDirectory(Application.StartupPa th & "\data\" & TextBox1.Text)

[saeed 444]

از هر دو بزرگوار سپاسگزارم
در گذاشتن & اشتباه میکردم با راهنمایی شما رفع شد

[saeed 444]

در صورتی که تعداد زیادی فایل تکست درون آخرین پوشه باشد طبق کد بالا . چطور میتونیم برای یک مورد خاص جستجو داشته باشیم
که بعد از سرچ بتونیم محتویات سرچ مورد نظر رو در یک تکست باکس نمایش بدیم؟

ممنون