写顺序文件的有关问题,大家帮忙

写顺序文件的问题,大家帮忙!
Private   Sub   Form_Click()
    FileID   =   FreeFile
  Open   "&App.path& "   \   a.dat   For   Output   As   #FileID   '确保d:\aaa路径存在
    Write   #FileID,   "$----------------------------HEADER "

    Write   #FileID,   5;   4;   3;   2;   1
    Write   #FileID,
    Write   #FileID,   "abc ",   "def ";   True,
    Write   #FileID,   False
    Close   #FileID
End   Sub
调总是 "&App.path& "   \   a.dat   处出错,给定特定的文件路径如f:/a.dat就行


[解决办法]
Open App.path & "\a.dat For Append As #FileID '确保d:\aaa路径存在
'相应代码
Close