کپی فایلهایی با پسوند مشخص در مسیر معین

[m75an86]

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

[M.T.P]

مسیر پوشه مبدا و مقصد و پسوند فایل رو که xxx گذاشتم ، به دلخواه تون تغییر بدید.



Sub StartCopy()
On Error GoTo EndLine
Dim Fso As New FileSystemObject
Dim FsoFile As File
Dim FsoFolder As Folder
Dim StrSrcPath As String
Dim StrDesPath As String

StrSrcPath = "c:\Src"
StrDesPath = "c:\Des"

Set FsoFolder = Fso.GetFolder(StrSrcPath)

If FsoFolder.Files.Count = 0 Then GoTo EndLine

For Each FsoFile In FsoFolder.Files
If UCase(Right(FsoFile.Name, 3)) = UCase("txt") Then
Call Fso.CopyFile(FsoFile.Path, StrDesPath & "\" & FsoFile.Name)
End If
Next FsoFile

EndLine:
Set Fso = Nothing
If Err.Number Then Call MsgBox(Err.Description, vbExclamation)
End Sub

[m75an86]

خیلی خیلی ممنونم. مشکلم حل شد . خدا خیرتون بده تازه فهمیدم کلاس FileSystemObject چیه و باید اول رفرنس Microsoft Scripting Runtime به پروژه اضافه کنم.