بدست آورن مکان فایل های ورد

[mahdi.a.v]

سلام چه جوری میتونم مکان تمام فایل های ورد(Docx.) در سیستم رو پیدا کنم ؟!

[mahdi.a.v]

کسی نیست بگه چه جوری فایل های ورد توی Document سیستم رو مکان شونو بدست بیارم ؟! یعنی حتما باید اسم تمام فایل هایی که توی داک سیستم هستو تو لیست باکس بنویسیم و بعد 4 حرف آخرشو چک کنیم ببنیم docx هست یا نه ؟

[Purya Fallah]

با سلام .

Dim File As String = Nothing

File = Dir("مسیر پوشه برای جستوجو", FileAttribute.Normal)

Do Until File = vbNullString

If My.Computer.FileSystem.GetFileInfo(File).Extension = ".Docx" Then 'اگر فایل یک فایل ورد باشه خط بعدی اجرا میشه
ListBox1.Items.Add(File)
End If

File = Dir()
Loop


با کد بالا میتونی تمام فایل های وردی که تو مسیر مشخص میکنی رو بدست بیاری .

[mahdi.a.v]

داداش بی نهایت ممنونم جواب دادی ... اما کار نکرد برای من , مسیر پوشه رو گذاشتم مثلا \:F بعد فایل ورد هم گذاشتم توی درایو F هیچ کار نشد

[مهرداد صفا]

با سلام.
با استفاده از متود Directory.GetFiles میتوانید فایل مورد نظر را جستجو کنید. آرگومنت اول آدرس پوشه را می گیرد برای آرگومنت دوم نام فایل مورد نظر را ارسال کنید، می توانید از WildCard هم استفاده کنید. آرگومنت سوم اختیاری است و روشن میکن که قصد جستجو در صرفا پوشه مورد نظر یا تمام زیر پوشه ها را دارید. مثال:

Dim WordFiles As String() = System.IO.Directory.GetFiles("e:\temp", "*.doc", IO.SearchOption.AllDirectories)
For Each WordFile In WordFiles
Console.WriteLine(WordFile)

Next

[mahdi.a.v]

یه باتون قرار دادم و توی رویداد کلیکش همونو نوشتم روی خط اول ارور داد ...

[alimanam]

با سلام

به صورت عادی کد ذکر شده در پست شماره 5 نباید مشکلی داشته باشه . پیامی که بهتون نمایش داده میشه ( در صورت بروز خطا ) رو بگین تا مشکل بهتر حل بشه .


Try
Dim ofd As New FolderBrowserDialog With {
.Description = "مسیر جستجو را انتخاب کنید", _
.RootFolder = Environment.SpecialFolder.MyComputer, _
.ShowNewFolderButton = False _
}
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim WordFiles As String() = System.IO.Directory.GetFiles(ofd.SelectedPath, "*.doc", IO.SearchOption.AllDirectories)
For Each WordFile In WordFiles
ListBox1.Items.Add(WordFile)
Next
End If
Catch ex As Exception
MsgBox(ex.InnerException, MsgBoxStyle.Exclamation)
End Try


موفق باشید./

[mahdi.a.v]

من مسیر جستجو رو اسم درایو میزدم ... برنامه باید درDocument سرچ بشه برای مسیر داک باید چی بنویسی ؟

[alimanam]

با سلام


من مسیر جستجو رو اسم درایو میزدم ... برنامه باید درDocument سرچ بشه برای مسیر داک باید چی بنویسی ؟

Dim ofd As New FolderBrowserDialog With {
.Description = "مسیر جستجو را انتخاب کنید", _
.RootFolder = Environment.SpecialFolder.MyDocuments, _
.ShowNewFolderButton = False _
}

موفق باشید./

[mahdi.a.v]

ببخشید - اگه اینو جواب بدید برنامم آماده میشه یه سوال دیگم اینه که برنامه ی من یه برنامه ی جاسوسی هست و نمیشه این پیغام ها برای انتخاب فایل بیاد و من میخوام از دید کاربر جستجو مخفی باشه حالا باید چیکار کنیم ______________________________________________

[h_a_m_i_d]

سلام اینم کد بدون سوال برای شما
Dim rootfolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocume nts

[mahdi.a.v]

داداش ازت خیلی خیلی ممنونم

[h_a_m_i_d]

خواهش میکنم بازم مشکلی بود در خدمتم
راستی پیدا کردن و فرستادن فایل قدیمی شد
الان با نمونه کد میتونی راحت سیستم ها رو خراب کنی
مثلا بزنی هارد رو بسوزونی :چشمک: یا مثلا بعد ارسال اطلاعات رو پاک کنه
و با چند تا الگوریتن قابلیت ریکاوریش هم ببندی
:قهقهه:

[VB.2000]

سلام دوستان
ببخشید تاپیک رو بالا اوردم , من هم میخوام فایل هایی با پسوند مثلا همین docx در تمام سیستم جستجو کنم نه فقط در پوشه ی داکیومنت , اما توی نت چیزی نبود که کار کنه
لطفا پاسخ بدهید

[VB.2000]

مثل اینکه کسی در این تالار به من پاسخ نمیده.
اگه میشه جواب بدید لطفــــا
پوشه های تو در توی دسکتاپ رو برام جستجو کنه کافیه

[SHD.NET]

این معاون آموزشی ما فایل ها رو توی سطل آشغال ویندوز قایم می کنه :لبخند: ، منم به سیستمش دسترسی دارم، راهی نیس بتونم از تو سطل آشغال فایلا رو بپیچم ؟؟ :قهقهه:

[h_a_m_i_d]

سلام
دوست عزیز من برای جستجو در کل هارد
1-ادرس درایوها رو پیدا کنی
2-پوشه های درون اون رو پیدا کنی
3-پوشه های تو اون پوشه قبلی رو پیدا کنی
4-پوشه های تو اون پوشه قبلی قبلی رو پیدا کنی
5-پوشه های توی اون پوشه قبلی قبلی قبلی رو پیدا کنی
6-:قهقهه:
7-شوخی کردم
----------------------------------------------
1-درایو ها رو پیدا میکنی
2-پوشه های داخل درایو رو پیدا میکنی اینجا باید حلقه بزاری که تا زمانی که داخل پوشه پوشه دیگه ای هست فایل ها رو جستجو کنه
3-اطلاعات رو بگیری
4-تک تک مراحل به صورت جداگانه سرچ شوند کد ها کپی پیست گردند + منابع و ماخذ پاک شود
5-برنامه شما امادست

[h_a_m_i_d]

این معاون آموزشی ما فایل ها رو توی سطل آشغال ویندوز قایم می کنه :لبخند: ، منم به سیستمش دسترسی دارم، راهی نیس بتونم از تو سطل آشغال فایلا رو بپیچم ؟؟ :قهقهه:
سطل اشغال در درایو c یک پوشه دارد که البته پنهان هست به نام recycler فکر کنم

[SHD.NET]

سطل اشغال در درایو c یک پوشه دارد که البته پنهان هست به نام recycler فکر کنم

به هر زبانی توی اینترنت توسنتم درباره این مطلب جستجو کردم !!! :لبخند: به نتیجه ای نرسیدم، :چشمک: