پیدا کردن یک فایل تکست در کامپیوتر بدون داشتن مسیر

[xrezax]

دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟

[MohammadGh2011]

دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟
سلام عليکم
راهنمايي:سورسهايي تو سايت براي جستجو در درايو هست با اون فايل رو پيدا کنيد و سپس با دستور open فايل رو تو تکست باکس لود کنيد.

موفق باشيد

[MohammadGh2011]

خودم براتون با همون نمونه ها نوشتم:
(پس از کليک بر روي Search کمي صبر کنيد و سپس بر روي فايلهاي پيدا شد کليک کنيد تا محتوياتش در تکست باکس لود شود)

موفق باشيد

[xrezax]

این یه مشکلی داره اونم اینه که باید روش کلیک بشه تا نشون بده. من میخوام خودش بگرده و محتویاتو کامل نشون بده تو تکست باکس بدون کلیک کردن روی چیزی

[MohammadGh2011]

این یه مشکلی داره اونم اینه که باید روش کلیک بشه تا نشون بده. من میخوام خودش بگرده و محتویاتو کامل نشون بده تو تکست باکس بدون کلیک کردن روی چیزی
سلام عليکم

خب سورس رو که دادم بهتون با کمي تغييرات ساده اين رو ميشه حل کرد!!!!!!!!

يک تايمر اضافه کنيد با اينتروال 2000 ، سپس Enable اون رو False کنيد و کدهاي زير را داخلش بنويسيد:

On Error Resume Next
Dim yy As String
yy = Text1.Text + "\" + Text2.Text

Open yy For Input As 2#
While EOF(2#) = False
Input #2, fileline
Load Form2

Form2.Text1.Text = Form2.Text1.Text + vbCrLf + fileline
Wend
Close 2#
Timer1.Enabled = False
Form2.Show


سپس روي دکمه ي Search کليک کنيد و در آخر کد نويسي اين رو بنويسيد(که پس از تکميل جستجو تايمر رو فعال کنه):
Timer1.Enabled = True

[xrezax]

کار نمیکنه

[MohammadGh2011]

کار نمیکنه

شما اين کارهايي که گفتم رو تو همون پروژه اعمال کرديد؟!!
پست شماره 5 رو تو همون فايل ضميمه شده ي پست 3 اعمال کنيد...

[xrezax]

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

[program2vb]

کار نمیکنه


سلام دوست عزیز با اجازه آقا محمد

کد بالا یه اشکال کوچیک داره کد بالا رو به صورت زیر تغییر بده ببین کار میکنه یا نه ؟
به این صورت :


On Error Resume Next
Dim yy As String
yy = Text1.Text + "\" + Text2.Text

Open yy For Input As #2
While EOF(0) = False
Input #2, fileline
Load Form2

Form2.Text1.Text = Form2.Text1.Text + vbCrLf + fileline
Wend
Close #2
Timer1.Enabled = False
Form2.Show


اگه این کار نکرد میتونی از این روش استفاده کنی برای باز کردن فایها :


Open "d:\a.txt" For Input As #1
While Not EOF(1)
Input #1, a
Text1.Text = Text1.Text + vbCrLf + a
Wend
Close #1

موفق و پیروز باشید .... یا علی

[MohammadGh2011]

سلام دوست عزیز با اجازه آقا محمد

سلام عليکم، خواهش ميکنم...


خوب همه چیزش خوبه فقط یک مشکل کوچولو داره اونم اینه که باید داریو تعریف کنیم براش تا بگردهو
من می خوام کل هاردو سرچ کنه و آن فایل را پیدا کنه. چون نمی دونم کجاست.
ببينيد براي اينکار يه راهنمايي ميکنم؛ ميتونيد کاري کنيد که پس از جستجوي درايو سي بره به درايو بعدي و همينجور ادامه بده تا فايل رو پيدا کنه.


موفق باشيد

[xrezax]

سلام عليکم، خواهش ميکنم...

ببينيد براي اينکار يه راهنمايي ميکنم؛ ميتونيد کاري کنيد که پس از جستجوي درايو سي بره به درايو بعدي و همينجور ادامه بده تا فايل رو پيدا کنه.


موفق باشيد

خوب چطوری اینکارو انجام بدم

[program2vb]

دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟

سلام خدمت شما دوست عزیز معذرت دیر ج دادم والا وقت نداشتم برنامه بنویسم بزور تونستم اینو براتون جور کنم امیدوارم همونی که شما میخواین همون باشه و بدردتون بخوره

موفق و پیروز باشی ... یاعلی

اگه سوالی اشکالی چیزی داشتی من در خدمتم

[xrezax]

ممنون از پاسختون. اما این چیزی که شما دادین باید آدرس فایل را بهش بدم. در صورتی که من نمی دونم کجای هارد این تکست ذخیره شده.
می خوام برنامه برام پیداش کنه و مسیرشو بهم بده

[program2vb]

ممنون از پاسختون. اما این چیزی که شما دادین باید آدرس فایل را بهش بدم. در صورتی که من نمی دونم کجای هارد این تکست ذخیره شده.
می خوام برنامه برام پیداش کنه و مسیرشو بهم بده

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

موفق و پیروز باشی در پناه خدا ..... یا علی

[xrezax]

20 :بوس:
مثل ساعت کار می کنه
دلم نیومد ازت تشکر کنم.
مرسی ، خدایی زحمت کشیدی.
تشکر :قلب: