This here can help you one I hope :]

On Error GoTo none
File1 = Drive1 'this makes file list show contents
none:
MsgBox "Error: No Disk In Drive"