Open "e;\zhu zhong zhi\student.bak" For Binary As filename2产生了错误：路径未找到

Private Sub Form_Click()
Dim char As Byte
Dim filename1, filename2 As Integer
filename1 = FreeFile
Open "e:\zhu zhong zhi\student.dat" For Binary As filename1
filename2 = FreeFile
Open "e;\zhu zhong zhi\student.bak" For Binary As filename2
Do While Not EOF(filename1)
Get #1, , char
Put #2, , char
Loop
Close #filename1, #filename2

End Sub