Printable View
سلام دوستان میخواصتم بدونم چه طور میشه هارد رو برای مثلا فایل هایی با پسوند gif جستجو کرد و بعد همهی اونا رو نمایش داد و بشه اونا رو با فار یک دکه پاک کرد مثل شکل زیر
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
__________________
کسی بلد نیست
البته طبق معمول پاسخ من مربوط به وی بی 2005 میشه و نمیدونم به دردت میخوره یا نه !
کد:My.Computer.FileSystem.GetFiles("c:\", FileIO.SearchOption.SearchTopLevelOnly, "*.gif")
منم واس 2005 میخوام ولی مثل شکل بالا اون شکلی که دادمنقل قول:
اون بالا رو میگم
بایه دکمه نمایش بده و با یکی دیگه پاک کنه
اينم يه توضيح:
1- برای ليست کردن فايل های پيدا شده..
کد:Listbox1.Items.AddRange(IO.Directory.GetFiles("C:\", "*.jpg", IO.SearchOption.AllDirectories))
2- پاکسازی تمام ليست
کد:L.Items.Clear
به همين سادگی....
اگه بازم چيزی بود بگو
دوست عزیز بعد از شروع کار با یه همچین اروری مواجه میشه :41::18:نقل قول:
Access to the path 'C:\System Volume Information' is denied.
چه طور میشه بی خیال فایل های سیستم شد؟:2:
سلام ممنون از لطفتنقل قول:
ولی من نمیخوام که لیست رو پاک کنم من میخوام اون فایل ها رو از روی هارد پاک کنم
میدونم با دستور kill
ولی نمیدونم چه طور ازش استفاده کنم
نقل قول:
روی فرم دو تا باتون و یه دونه لیست باکس بذار. باتون یک برای لیست کردن فایلهاست و باتون 2 برای حذف فایلهاست.
کد زیر رو در کد ادیتور وارد کن.
کد:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
Dim i As Integer
For i = 0 To files.Count - 1
ListBox1.Items.Add(files.Item(i).ToString)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("files will be delete.are you sure?")
Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories, "*.gif")
Dim i As Integer
For i = 0 To files.Count - 1
On Error Resume Next
My.Computer.FileSystem.DeleteFile(files.Item(i))
Next
ListBox1.Items.Clear()
End Sub
End Class
نقل قول:
سلام خوبی شرمنده خیلی عزیتت کردم ها ولی
این کدی که نوشتی کار نمیکنه یعنی به همش ایراد میگیره
به file به i به (OfString
من چی کار کنم
ایراد از تگ کد انجمن پی سی ورلده که ترتیب کدها رو بهم ریخته.نقل قول:
کد رو ویرایش کردم. مطمئنم که دیگه کار میکنه.