arrays - 前にディメンション化されていない配列

Question

次の QuickBasic 4.5 コードがあります。

IF LEN(Dir$("mtn.vga")) > 0 THEN
BLOAD "mtn.vga", VARPTR(mtn(1))

FreeBasic に移植しようとしていますが、次のエラーが表示されます。

'(' の前に、次元が指定されていない配列

IF LEN(Dir("mtn.vga")) > 0 THEN

       ^

何か案は？

Answer 1

その特定の行は完全に有効な FreeBASIC コードです (Dir() の後にドル記号を付けたままにしても機能します)。確認のためにこのテスト コードを実行したところ、期待どおりに動作します。

IF LEN(DIR("sa.bas")) > 0 THEN 'sa.bas is the name of this file
    PRINT "file exists"
END IF

より大きなコードのチャンクを入れてもよろしいですか (ペーストビンにリンクしてリンクしてください)。問題の原因は、コードの直前のどこかにある可能性があります。