کپی فایل ازشماره nام

[arash.arya43]

سلام.من کار با بت فایل یا سی ام دی برای کپی فایل روبلدم (xcopy)اما هر چی تلاش کردم نتونستم کد رو طوری بنویسم که فایلهای پوشه ای که 100 تا قایل داره فقط 20 تا فایل اخر رو برام کپی کنه تو یک پوشه تو درایو دی D\:ashiyane
اگه با وی بی هم بشه خوبه

[meys34]

سلام

با استفاده از FileListBox میشه نام 20 فایل آخر رو بدست آورد و کپی کرد...

Dim d As String
d = "D:\ashiyane"
MkDir d
File1.Path = "D:\Folder 1"
Dim i As Integer
For i = File1.ListCount - 1 - 20 To File1.ListCount - 1
FileCopy File1.Path & "\" & File1.List(i), d & "\" & File1.List(i)
Next