这是我的代码段; Private Sub Form_Load()Timer1.Enabled = False WindowsMediaPlayer1.Controls.stop Dim tempdata() As Byte tempdatapath = C:\Users\Administrator.65NWUF7BKOBWLUR\Desktop\Neal Caffrey\国旗班\101.res tempdata = LoadResData(101, CUSTOM) Open tempdatapath For Binary Access Write As #1 Put #1, , tempdata Close #1 WindowsMediaPlayer1.URL = tempdatapath
End Sub Private Sub Form_Unload(Cancel As Integer)Kill C:\Users\Administrator.65NWUF7BKOBWLUR\Desktop\Neal Caffrey\国旗班\101.res End Sub 在Open tempdatapath For Binary Access Write As #1提示拒绝的权限,应该怎么修改啊