dosya taşımada hata

[halilerdem]

merhaba aşağıdaki kod "permission denied" hatası veriyor , normal kopyalama, taşımada herhangi bir problem yok ama kodla yaptığımızda hata veriyor

Sub Dosya_Taşı()
Dim dos, f
Set dos = CreateObject("Scripting.FileSystemObject")
f = dos.movefile("C:\DENEME\FORM\Temas.pdf", "C:\DENEME\FORM\DOSYALAR")
End Sub

 

[halit3]

Böyle denermisiniz.

Sub Dosya_Taşı()
Dim dos
Set dos = CreateObject("Scripting.FileSystemObject")
dos.MoveFile "C:\DENEME\FORM\Temas.pdf", "C:\DENEME\FORM\DOSYALAR\Temas.pdf"

End Sub

 

[halilerdem]

teşekkür ederim

 

[halilerdem]

dosya birden fazla olup da mesela Temas Ali.pdf , Temas Veli.pdf şeklinde Temas kelimesi için anahtar bir karakter kullanılır mı ?