پیدا کردن فایل ها با پسوند خاص و کپی آن ها در یک فولدر

[ppcsoft]

سلام
من vb خیلی ضعیفه
اومدم اینجا شاید شما کمکم کنین انقدر فایل های exel دفترمون گم شده دیوانه شدم
من یه سورس می خوام هر فایل .xls که تو یه کامپیوتر هستش رو سرچ کنه و همه رو کپی کنه تو فولدر backup
البته 1: خودش تعداد درایو ها رو پیدا کنه و توی همه سرچ کنه
2: همه فایل هایی رو که پیدا می کنه رو کپی کنه تو یه فولدر
3. هر موقع که اجرا می شه هر فایلی رو که پیدا می کنه چک کنه اگه قبلا کپی شده کپی نکنتش دوباره لزومی هم نداره که مثلا یه فایلی اگه edit شده دوباره کپی بشه چون هر روز فولدر backup رو خالی می کنم

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

[HamedFaa]

با این function که برات نوشتم میتونی هر پسوندی رو که میخوای جستجو کنید. شما برنامه رو شروع کنید ما کمکتون میکنیم. اینجا برنامه نویس استخدام نشده که برنامه های پیشنهادی کاربران رو بدون نقص در حداقل زمان انجام بده. کسی هنوز انقدر بیکار نشده

کد:

Private Function SearchFile(Spath As String, Stype As String, SResult As ListBox)
    Path = Dir(Spath & "\" & Stype)
    Do While (Path <> "")
        SResult.AddItem Path
        Path = Dir
    Loop
End Function

Private Sub Command1_Click()
    Call SearchFile("H:\Other", "*.*", List1)
End Sub

[tiktak99]

سلام چطور میشه فایل های Hidden رو جستجو کرد؟

[Payman62]

سلام.
از منوی بالا project-> refrence رو بزن و گرینه microsoft scripting runtime رو بزن و یه متغیر از filesystemobject بساز.
امکانات خوبی برای کار با فایل و فولدر بهتون میده.

[HamedFaa]

سلام چطور میشه فایل های Hidden رو جستجو کرد؟

یکی از آرگومان های تابع dir همین attrib هست. از vbhidden استفاده کن.

[fararaz]

جالب بود