بازکردن تمامی فایل های دارای پسوند Txt در یک فایل

[آزاد87]

با سلام .
می خوام تمامی فایل های دارای فرمت txt. درون یک فولدر باز شده و در همه آنها مثلا کلمه Salam به سلام تبدیل بشه .
اسم هیچ کدام ار فایل های .txt رو نمی دونم .
لطفا راهنمایی کنید.
با تشکر

[armin001]

سلام
نمیدونم چرا جناب pooyan.sh (http://barnamenevis.org/member.php?u=298008) تشکر کردن حتما دلیلی داره پس منم تشکر میکنم:لبخندساده::لبخند:
با تشکر:لبخند:
اینم جواب شما
Dim filename() As String
filename = IO.Directory.GetFiles("Path", "*.txt")
این کد برای گرفتن مسیر فایل های با پسوند *.txt است
برای اینکه بتونید فایلو باز کنید باید از حلقه استفاده کنید مثل:
Dim filename() As String
Dim txt As String
filename = IO.Directory.GetFiles("G:\New folder (5)", "*.txt")
For Each i In filename
txt = IO.File.ReadAllText(i)
MsgBox(txt)
txt = txt.Replace("salam", "سلام")
IO.File.WriteAllText(i, txt)
Next

[آزاد87]

با سلام و تشکر فراوان.

(بنده هم از این که از سوالم تشکر شده مانند شما تعجب کردم. شاید سوال ایشان هم بوده است .)
مثلا توی همین New folder (5) یک فولدر دیگه هم هست و می خواهم داخل آن رو هم این کار رو انجام بده .
یعنی وارد اون فولدر شده و فایل های تکست اون رو هم جایگزین کنه.
آیا چنین امکانی وجود دارد ؟

[armin001]

آره فقط بگو چرا نباشه؟؟!!

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

filename = IO.Directory.GetFiles("G:\New folder (5)", "*.txt", IO.SearchOption.AllDirectories)
کد بالا رو جایگزین این کن
filename = IO.Directory.GetFiles("G:\New folder (5)", "*.txt")