Kassy さん、こんにちは。

APIを使ってＦＤＤにディスクが入っているかチェックできます。

外部関数
FUNCTION UnsignedLong GetDriveType(String lpRootPathName) &
　　　　LIBRARY \"KERNEL32.DLL\" ALIAS FOR \"GetDriveTypeA\"
FUNCTION UnsignedLong GetFileAttributes(String lpFileName) &
　　　　LIBRARY \"KERNEL32.DLL\" ALIAS FOR \"GetFileAttributesA\"
FUNCTION UnsignedLong SetErrorMode(UnsignedLong uMode) &
　　　　LIBRARY \"KERNEL32.DLL\"
FUNCTION UnsignedLong GetLastError() &
　　　　LIBRARY \"KERNEL32.DLL\"

//定数宣言
//GetDriveType の戻り値
Constant UnsignedLong DRIVE_REMOVABLE = 2

//GetLastError の戻り値
Constant UnsignedLong ERROR_NOT_READY = 21
Constant UnsignedLong ERROR_GEN_FAILURE = 31

//SetErrorMode の引数
Constant UnsignedLong SEM_FAILCRITICALERRORS = 1

//変数宣言
String strRootPathName
UnsignedLong lngDriveType
UnsignedLong lngFileAttrivutes
UnsignedLong lngWin32apiResultCode

//目的のドライブのルートディレクトリを指定
strRootPathName = \"A:\\\"
//ドライブの種類を取得
lngDriveType = GetDriveType(strRootPathName)
//リムーバブルメディアに限定
IF lngDriveType = DRIVE_REMOVABLE THEN
　　//システムエラーを抑制
　　lngWin32apiResultCode = SetErrorMode(SEM_FAILCRITICALERRORS)
　　//ルートディレクトリのファイル属性を取得
　　lngFileAttrivutes = GetFileAttributes(strRootPathName)
　　IF lngFileAttrivutes = 4294967295 THEN
　　　　CHOOSE CASE GetLastError()
　　　　CASE ERROR_NOT_READY
　　　　　　//ディスクが入っていない
　　　　CASE ERROR_GEN_FAILURE
　　　　　　//フォーマットされていない
　　　　CASE ELSE
　　　　　　//状態を取得できない
　　　　END CHOOSE
　　ELSE
　　　　//ディスクが入っている
　　END IF
　　//システムエラーを既定値に戻す
　　SetErrorMode(lngWin32apiResultCode)
END IF