مشکل این کد

[PHP]
Dim k As Long
For k = 0 To List1.ListCount - 1
If Dir$(List1.List(k) + "r.txt") = "" Then
Else
"file = "f:" & "\" & "r" & ".txt
"FileCopy file, "C:\hw.exe
End If
Next k
[PHP/]
سلام دوستان عزیز کد بالا اطلاعات درون list1 را که مثلا هست \:f رو میگیره بعد اگر فایل r.txt تو اون درایو بود اونو کپی میکنه تو درایو c این کد چرا تو win 8 جواب نمیده وارور میده ؟ ضمنا اگر جای درایو c درایو d رو بزارم درست میشه
اینم ارورش
[PHP]
Run time error 52
Bad file name or number
[PHP/]
لطفا کمک کنید کارم خیلی واجب مرسی.