# 在 "Open For" 和 "Put" 中做什么？

Question

我经常看到这样的代码:

Dim fnum As Integer
fnum = FreeFile()
Open "myFile.txt" For Binary As #fnum
Put #fnum, 1, CA
Close fnum

我觉得有点奇怪。在"Open for"中，作者也使用了"#fnum"，在"Put"中也使用了"#fnum"，但在"Close"中没有使用。

因此我想问一下它的实际用途。这是否源于早于6版本的Visual Basic ?

Answer 1

它们是文件句柄:https://stackoverflow.com/a/22847396/2467152

这些VB6命令(FreeFile, FileOpen, filclose, LOF等)至少早在QBasic中就存在了。我希望文件号最初是一个MS-DOS文件句柄。

回到QBasic中(如果内存可用)，FileOpen命令打开文件并保留文件句柄。FileClose命令关闭文件并释放句柄。

FreeFile只是一个获取未使用文件句柄的方便方法:如果你知道你没有打开(例如)文件#1，那么你可以调用open "C:DOSRUN"FOR INPUT作为#1，而不需要调用FreeFile。你仍然可以用close #1

关闭它