Olá Fernando, obrigado por responder.

Tem sim, mas resolvi de outra maneira, aproveitando a sugestão do Claudio Rola com o comando ADIR eu fiz como mostrado abaixo:

m.result = 99

do while m.result > 0

m.result = adir(arq, "A:\*.*")

if m.result > 0
?? chr(07)
= msgbox("Atenção... O disquete não está VAZIO. Insira um disquete VAZIO e clique no OK para prosseguir!","Aviso",48)
loop
else
exit
endif
enddo

[ ]s,Roberto Barros - BH