یه لیست از File name

[star_star]

سورسی رو میخوام که اینطوری باشه :
یه لیست باکس داریم که توش پره ادرس فایل هستش ! میخوام با زدن یه دکمه همه ی فایل هایی که ادرسشون توی لیست باکس وجود داره توی یه فولدر مثلا در درایو C کپی بشن !

[just4froum]

بفرمایید

Dim x As Long
Dim FileName As String

For x = 0 To List1.ListCount - 1
If Dir(List1.List(x)) <> Empty Then
FileName = Mid(List1.List(x), InStrRev(List1.List(x), "\") + 1)
FileCopy List1.List(x), "YourPath" & "\" & FileName
End If
Next x