FSO hakkında küçük bir olay

[maviayna]

Dostlarıma iyi çalışmalar dilerim.

Excel Dershanesi-FILE SYSTEM OBJECT Başlığı altında bulunan

2) Aşağıdaki kodlar ile adı geçen klasördeki tüm Excel dosyalarını SXS klasörüne kopyalıyoruz: 

Sub Dosya_Kopyala() 
Dim ds 
Set ds = CreateObject("Scripting.FileSystemObject") 
ds.CopyFile "D:\Excelörnekleri\*.xls", "C:\SXS" 
End Sub

kodları bir türlü çalıştıramadım. Farkettim ki;
"C:\SXS" yerine
"C:\SXS\" yazınca çalışıyor. Başlık altındaki diğer örnekler de aynı şekilde.
Küçük bir ayrıntı.
Yapanların ellerine sağlık. Bu kodlar çok işe yarıyor.