دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟
دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟
سلام عليکمنوشته شده توسط xrezax
راهنمايي:سورسهايي تو سايت براي جستجو در درايو هست با اون فايل رو پيدا کنيد و سپس با دستور open فايل رو تو تکست باکس لود کنيد.
موفق باشيد
خودم براتون با همون نمونه ها نوشتم:
(پس از کليک بر روي Search کمي صبر کنيد و سپس بر روي فايلهاي پيدا شد کليک کنيد تا محتوياتش در تکست باکس لود شود)
موفق باشيد
این یه مشکلی داره اونم اینه که باید روش کلیک بشه تا نشون بده. من میخوام خودش بگرده و محتویاتو کامل نشون بده تو تکست باکس بدون کلیک کردن روی چیزی
سلام عليکم
خب سورس رو که دادم بهتون با کمي تغييرات ساده اين رو ميشه حل کرد!!!!!!!!
يک تايمر اضافه کنيد با اينتروال 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
کار نمیکنه
شما اين کارهايي که گفتم رو تو همون پروژه اعمال کرديد؟!!
پست شماره 5 رو تو همون فايل ضميمه شده ي پست 3 اعمال کنيد...
خوب همه چیزش خوبه فقط یک مشکل کوچولو داره اونم اینه که باید داریو تعریف کنیم براش تا بگردهو
من می خوام کل هاردو سرچ کنه و آن فایل را پیدا کنه. چون نمی دونم کجاست.
سلام دوست عزیز با اجازه آقا محمد
کد بالا یه اشکال کوچیک داره کد بالا رو به صورت زیر تغییر بده ببین کار میکنه یا نه ؟
به این صورت :
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
موفق و پیروز باشید .... یا علی
سلام عليکم، خواهش ميکنم...
ببينيد براي اينکار يه راهنمايي ميکنم؛ ميتونيد کاري کنيد که پس از جستجوي درايو سي بره به درايو بعدي و همينجور ادامه بده تا فايل رو پيدا کنه.
موفق باشيد
خوب چطوری اینکارو انجام بدم
سلام خدمت شما دوست عزیز معذرت دیر ج دادم والا وقت نداشتم برنامه بنویسم بزور تونستم اینو براتون جور کنم امیدوارم همونی که شما میخواین همون باشه و بدردتون بخوره
موفق و پیروز باشی ... یاعلی
اگه سوالی اشکالی چیزی داشتی من در خدمتم
ممنون از پاسختون. اما این چیزی که شما دادین باید آدرس فایل را بهش بدم. در صورتی که من نمی دونم کجای هارد این تکست ذخیره شده.
می خوام برنامه برام پیداش کنه و مسیرشو بهم بده
بفرما عزیز اینم دیگه کامل کاملش امیدوارم بدردت بخوره
موفق و پیروز باشی در پناه خدا ..... یا علی
20
مثل ساعت کار می کنه
دلم نیومد ازت تشکر کنم.
مرسی ، خدایی زحمت کشیدی.
تشکر
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول