dim Fnum as long
fnmu=freefile
Open "e:\mypicture.jpg" For Output As #fnum试试?