کپی از فرمتی خاص

[quantom]

سلام
می خوام از درایو D فقط تمام فایلهای PDF رو کپی کنم و در پوشه ای به نام New ذخیره کنم. با چه کدی می تونم این کار رو انجام بدم ؟

 

[MahmoodM30]

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

dest$='D:\file.txt'
src$='C:\file.txt'
SysCommand("CopyFile","src$,dest$")

 

[quantom]

ممنون
ولی منظورم یک فایل نبود . بلکه تمام فایل های مثلا pdf هست که در درایو وجود دارند . یعنی تمام فایل ها از یک فرمت خاص .

 

[MahmoodM30]

خب با همین دستور قراره اینکار انجام بشه دیگه

درضمن قبلا یه همچین سوالی توی انجمن پرسیده شده بود و دوستان هم راهنمایی های لازم رو کرده بودن میتونید سرچ کنید

 

[محمدمهدی]

از این کد :

SearchForFiles("C:\","*.pdf")
If (CBK_NumInList>0) Then
  For i=1 To CBK_NumInList
    LoadText("File$","<List>i")
    NewFile$='D:\\'+ExtractName(File$)+ExtractExt(File$)
    SysCommand("CopyFile","File$,NewFile$")
  Next i
End

فقط همونطور که آقا محمود گفتن لطفا اول جستجو کنید.
دقت کنید که روند انجام این کد ممکنه خیلی طولانی بشه و بهتره یه Progress Bar و درخواست صبر برای کاربر داشته باشید و اگر هم مفخی هست بهتره برای عدم آسیب به روند های عادی؛ اهمیت Process رو کم در نظر بگیرید.

 

[nevercom]

اول باید لیستی از فایل هایی که قراره کپی بشن رو بدست بیارید.
میتونید یک فولدر رو برای فرمتی خاص توسط دستور SearchForFiles جستجو کنید.
خروجی این دستور در یک لیست ذخیره میشه: <List>
حالا شما با یک حلقه باید لیست رو پیمایش کنید و تک تک فایل ها رو توسط دستوری که محمود عزیز نوشتن و یا دستور کپی موجود در پلاگین ها، به محل جدید کپی کنید.

ویرایش: دقیقاً کدی که محمدمهدی عزیز قرار دادن مناسب کارتون هست

 

[quantom]

ممنون از همه دوستان
ولی عمل کپی بسیار کند انجام می شه . راه بهتر و سریعتری وجود نداره ؟

 

[nevercom]

پلاگین های مختلفی توابع مربوط به کپی فایل رو دارن، مثل Foldy, MFileAndFolders..... اونها رو هم امتحان کنید.