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
من چی کار کنم
ایراد از تگ کد انجمن پی سی ورلده که ترتیب کدها رو بهم ریخته.نقل قول:
کد رو ویرایش کردم. مطمئنم که دیگه کار میکنه.
دوست عزیز اجرای این کد همچنان باعث بروز خطای زیر میشه
Access to the path 'C:\System Volume Information' is denied.
واقعا نمیشه یه فکری برای جلو گیری از جست و جوی این دایرکتوری کرد؟
استفاده از Tty هم باعث میشه تا کار نیمه کاره تموم بشه.
دوست عزیز متاسفانه کار نکرد
میشه کد رو در یک فایل txt بزاری
تا این مشکلات پیش نیاد
اگه مشکلت فضا هست
میتونی از اپلود بازار همین سایت استفا ه کنی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
آقا رضای عزیز ، من همون کد رو از پست خودم کپی کردم و اجرا کردم. برنامه بدون هیچ مشکلی کار کرد و از دایرکتوری System voulme information هم ایرادی نگرفت. کد هیچ ایرادی نداره. چندین بار به خاطر شما تستش کردم تا مطمئن بشم.نقل قول:
موفق باشید.
اگه عکسش رو بزارم راضی میشینقل قول:
نمیدونم شاید من بلد نیستم وارد کنم
یه بار مراحل وارد کردن رو بگو
دیگه کمک نمیکنید
دوست عزیز باز هم از توجه مجددت ممنون :10:نقل قول:
در باره مشکل با دایرکتوری System voulme information در همه درایو ها این مشکل پیش نمیاد
در ضمن در اونهایی هم که این مشکل نیست اگه توی سیستم ریستور ویندوز یه چک پوینت جدید در ست کنی ممکنه این مشکل پیش بیاد:2: