写顺序文件的问题,大家帮忙!
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
